你现在所在的位置->首页->wap->关与wap电子银行程序
关与wap电子银行程序
时间：[2005-11-23 15:13:29] 作者：未知
| index.asp文件-登录首页
<%'###################################################
'程序修改：Bike-bicyle
'修改时间：2004-12-12 22:30
'文件归属：共享
'个人观点：思想有多远，我们就能走多远!(未来在想象之中!)
'个人主页：http://wap.bicyle.org
'###################################################%>
<%
Response.ContentType = "text/vnd.wap.wml"
%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-control" content="no-cache" />
</head>
<card id="login" title="WAP 电子银行">
<p>
欢迎来到WAP 电子银行 <br/>
请输入账号: <input name="AccountNo" type="text" value="" />
安全密码: <input name="AccountPIN" type="password" value="" />
<br/>
<do type="accept" label="登陆">
<go href="login.asp" method="post" accept-charset="gb2312">
<postfield name="AccountNo" value="$(AccountNo)" />
<postfield name="AccountPIN" value="$(AccountPIN)" />
</go>
</do>
</p>
</card>
</wml>
login.asp文件-登录后页面
<%'###################################################
'程序修改：Bike-bicyle
'修改时间：2004-12-12 22:30
'文件归属：共享
'个人观点：思想有多远，我们就能走多远!(未来在想象之中!)
'个人主页：http://wap.bicyle.org
'###################################################%>
<%
Response.ContentType = "text/vnd.wap.wml"
%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-control" content="no-cache" />
</head>
<card id="Login" title="WAP 电子银行">
<p>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("wapasp.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
user_name=request.form("AccountNo")
password=request.form("AccountPIN")
'当然可以采用下边的这两句接收。
'user_name=request("AccountNo")
'password=request("AccountPIN")
'注意下边的这句接收不到数据。
'password=request.querystring("AccountPIN")
dim SQL,rs,user_name,password
'注意下边的这句sql语句。有时候变量要用'引起来。
SQL = "SELECT * FROM users WHERE accountno='" & user_name & "'" &" AND accountpin='" & password & "'"
set rs = server.CreateObject("ADODB.Recordset")
rs.Open SQL,conn,1,3
if rs.EOF then
Response.Write "Invalid Login"
Response.Write "<do type='accept' label='Retry'>"
Response.Write " <go href='index.asp'/>"
Response.Write "</do>"
else
Response.Write "您好, " & rs("custname") & "先生 <br/>"
Response.Write "您的余额为￥" & rs("accountbal")
end if
%>
</p>
</card>
</wml>
<%
rs.Close
Set rs=nothing
conn.close
Set conn = Nothing
%>
利用m3gate显示的效果如下：
上传图片:
 | |
欢迎光临中国被爱可以在线--WAP站
----------------------------------------------------------
知识无界，朋友无界，共同学习，共同探讨，共同成功。
【声明】本站刊载的《关与wap电子银行程序 》一文如果有侵害你权益的情况，请联系我们。我们将及时采取措施。
QQ：44637339 Email:just6@163.com Tel:13355163107 Lining studios
Feedback