不懂的搞啊!一动手就难了。
在delphi中输入用户名和密码,然后把它提交给 index.htm,并根据值,来判断是否成功
如果成功就返回给delphi一个'success',否则就返回一个'fail'
<html>
<head>
<title>New Page 1</title>
</head>
<body>
<form method="POST" action="123.asp">
<p>accno:<input type="text" name="T1" size="20"></p>
<p>pass:<input type="text" name="T2" size="20"></p>
<p><input type="Submit" value="OK" name="B1"><input type="reset" value="Repeat" name="B2"></p>
</form>
</body>
</html>这个html提交的asp是
<!--#include file="ProgramConn.asp"-->
<%
id=replace(request("textid"),"'","''")
pass=replace(request("textpass"),"'","''")
sqlcmd="select * from table where ID='"&id&"' and Pass='"&pass&"'"
set rs=conn.execute(sqlcmd)
if rs.eof then
response.write "fail"
else
response.write "success"
end if
%>
在delphi中输入用户名和密码,然后把它提交给 index.htm,并根据值,来判断是否成功
如果成功就返回给delphi一个'success',否则就返回一个'fail'
<html>
<head>
<title>New Page 1</title>
</head>
<body>
<form method="POST" action="123.asp">
<p>accno:<input type="text" name="T1" size="20"></p>
<p>pass:<input type="text" name="T2" size="20"></p>
<p><input type="Submit" value="OK" name="B1"><input type="reset" value="Repeat" name="B2"></p>
</form>
</body>
</html>这个html提交的asp是
<!--#include file="ProgramConn.asp"-->
<%
id=replace(request("textid"),"'","''")
pass=replace(request("textpass"),"'","''")
sqlcmd="select * from table where ID='"&id&"' and Pass='"&pass&"'"
set rs=conn.execute(sqlcmd)
if rs.eof then
response.write "fail"
else
response.write "success"
end if
%>
解决方案 »
- 类的只读属性形同虚设?
- delphi listview 读取写入ini~~
- 咨询一个多线程通讯的问题
- 使用ADO控件连接到Foxpro表时,报错“ODBC驱动程序不支持所需属性”是什么原因?谢谢。
- 关于动态创建计算字段!200分进者有分
- 如何把键盘上的windows键屏蔽掉(windowsxp下,98下)
- 看一看csdn上的人气倒底如何?顺便......
- 怎么设置在ExecSQL之后不自动提交?
- 谁能提供我一个Delphi操作MSACCESS数据库的例子,包括新建,添加,删除表格及记录之类的操作
- 如何用控件Query不能实现查询
- 水平不上不下,该何去何从?(求教高手们如何进阶)
- 重新开贴: 对CSDN社区的一点感想
使用idhttp去提交数据,当然数据中可以包括用户名和密码。至于数据格式可以使用xml。网站那边的asp程序没有问题,它发出的内容idhttp组件会原样收到。
var
FIdHttp: TIdHttp;
begin
FIdHttp := TIdHTTP.Create(nil);
FIdHTTP.Request.ContentType :='application/x-www-form-urlencoded';
FIdHTTP.HTTPOptions:=[hoForceEncodeParams];
try
with FmyParams do
begin
Clear;
Add('textid=pa');
Add('textpass=pa');
end;
try
FIdHTTP.Post('http://192.168.0.2/123.asp',FmyParams,ret);
except
On E: Exception do
begin
end;
end;
Result := FIdHttp.ResponseCode;
finally
FIdHTTP.Disconnect;
FIdHttp.Free;
end;
end;
--
如果返回值=200则表示页面数据正常返回,可以分析其返回数据中的内容