|
| | <?
header( "Content-Type: text/html; Charset=euc-jp" );
foreach( $_POST as $Key => $Value ) {
$_POST[$Key] = str_replace("'", "''", $Value );
$_POST[$Key] = str_replace("\\'", "'", $_POST[$Key] );
$_POST[$Key] = str_replace("\\\"", "\"", $_POST[$Key] );
}
$Server = 'サーバー';
$DbName = 'データベース';
$User = 'ユーザー';
$Password = 'パスワード';
if ( $_SERVER['REQUEST_METHOD'] == 'POST' ) {
// 接続
$Connect = @mysql_connect( $Server, $User, $Password );
if ( !$Connect ) {
print "接続エラーです";
exit();
}
// DB選択
mysql_select_db( $DbName, $Connect );
$Query = "insert into `社員マスタ` (`社員コード`,`氏名`)";
$Query .= " values('{$_POST['code']}','{$_POST['name']}')";
// 実行
$ret = mysql_query($Query, $Connect);
if ( !$ret ) {
print "エラーが発生しました\n";
print mysql_error() . "\n";
}
else {
print "ok";
}
// 接続解除
mysql_close($Connect);
}
else {
?>
<html>
<body>
<form method="post">
<input type="text" name="code">
<input type="text" name="name">
<input type="submit" name="send">
</form>
</body>
</html>
<?
}
?>
| |
|
|
| PC( Windows 側 ) のコード : VBScript |
|
| | ' ***********************************************************
' ( 連続実行を想定しているので、クライアント用オブジェクト )
' ***********************************************************
Set objHTTP = Wscript.CreateObject("MSXML2.XMLHTTP")
' ***********************************************************
' キャラクタセット変換用
' ***********************************************************
Set Stream = Wscript.CreateObject("ADODB.Stream")
Set Stream2 = Wscript.CreateObject("ADODB.Stream")
' ***********************************************************
' URLエンコード用
' ***********************************************************
Set StreamBin = Wscript.CreateObject("ADODB.Stream")
Call objHTTP.Open("POST","サーバー側のURL",False)
Call objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
strData = "code=9002&name=" & EUC_URLEncode("日本語表示1")
Call objHTTP.SetRequestHeader("Content-Length",Len(strData))
Call objHTTP.Send(strData)
Wscript.Sleep(1)
Call objHTTP.Open("POST","サーバー側のURL",False)
Call objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
strData = "code=9003&name=" & EUC_URLEncode("日本語表示2")
Call objHTTP.SetRequestHeader("Content-Length",Len(strData))
Call objHTTP.Send(strData)
Wscript.Echo objHTTP.responseText
' ***********************************************************
' SHIFT_JIS を EUC-JP に変換して URLエンコード
' ***********************************************************
Function EUC_URLEncode(str)
Stream.Open
Stream.Charset = "shift_jis"
' shift_jis で入力文字を書き込む
Stream.WriteText str
' コピーの為にデータポインタを先頭にセット
Stream.Position = 0
Stream2.Open
Stream2.Charset = "euc-jp"
' shift_jis を euc-jp に変換
Stream.CopyTo Stream2
Stream.Close
' コピーの為にデータポインタを先頭にセット
Stream2.Position = 0
' バイナリで開く
StreamBin.Open
StreamBin.Type = 1
' テキストをバイナリに変換
Stream2.CopyTo StreamBin
Stream2.Close
' 読み込みの為にデータポインタを先頭にセット
StreamBin.Position = 0
Buffer = ""
Do while not StreamBin.EOS
LineBuffer = StreamBin.Read(16)
For i = 1 to LenB( LineBuffer )
CWork = MidB(LineBuffer,i,1)
Cwork = AscB(Cwork)
Cwork = Hex(Cwork)
Cwork = Ucase(Cwork)
if Len(Cwork) = 1 then
Buffer = Buffer & "%0" & Cwork
else
Buffer = Buffer & "%" & Cwork
end if
Next
Loop
StreamBin.Close
EUC_URLEncode = Buffer
End Function
| |
|
|
|
