推荐订阅源

将以下代码保存为任意ASP文件即可。

<%
Set Wap=Server.CreateObject("QWap.Wap2005")
'Set Wap=Server.CreateObject("QWap.Wap20")
Wap.CardTitle="津城车市"
Wap.PageHeader
'以下可以写文件正文
If Request("ToDo")="Login" Then
Name=Request("Name")
Pwd=Request("Pwd")
Wap.MdbPath="#Access.mdb"     '用于设置Access数据库的路径。
Wap.StrSql="select * from User Where Name='" & Name & "' and Pwd='" & Pwd & "'"
Wap.MdbDo
If Wap.RecordCount<>0 then
Wap.WriteRow "感谢您，你已经成功登录。"
Session("OnLineName")=User
Wap.WriteRow Wap.A("确定","Index.asp","进入主页")
Else
Wap.WriteRow "用户名或密码错误。"
Wap.WriteRow Wap.A("确定",Wap.ThisFileName,"重新登录")
End If
Else
Wap.WriteRow Wap.TextIn("请输入姓名","text","Name","","姓名")
Wap.WriteRow Wap.TextIn("请输入密码","password","Pwd","","密码")
'下面一句代码将以链接形式提交数据。
Wap.WriteRow Wap.AnchorGo("立即登录",Wap.ThisFileName & "?ToDo=Login","Name Pwd","Name Pwd")
End If
Wap.PageFooter
Set Wap=Nothing
%>

效果图：