请帮我解决一个asp的问题???

来源:百度知道 编辑:UC知道 时间:2024/06/05 09:53:13
<%
dim qhname,mmwenti,mmdaan,yz1,yz2
qhname=trim(request.Form("user"))
mmwenti=trim(request.form("wenti"))
mmdaan=trim(request.form("daan"))
yz1=trim(request.Form("yanzheng1"))
yz2=trim(request.Form("yanzheng2"))

if qhname="" then
response.write "<p align=center>请输入用户名!"
response.End()
end if

if mmwenti="" then
response.Write "<p align=center>请选择你的密码保护问题!"
response.End()
end if

if mmdaan="" then
response.Write "<p align=center>请输入密码保护问题的答案!"
response.End()
end if

if yz1="" then
response.write "<p align=center>请输入验证码!"
response.End()
end if

if yz1<>yz2 then
response.write "<p align=center>验证码不正确!"
response.End()
end if

那就改成
cn.open "select * from mibao where user='"&qhnsmr&"' and wenti='"&mmwenti&"' and daan='"&mmdaan&"'","driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("s1.mdb")

另外:mibao 是什么意思?

<%
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("s1.mdb")
conn.Open connstr

dim qhname,mmwenti,mmdaan,yz1,yz2
qhname=trim(request.Form("user"))
mmwenti=trim(request.form("wenti"))
mmdaan=trim(request.form("daan"))
yz1=trim(request.Form("yanzheng1"))
yz2=trim(request.Form("yanzheng2"))

if qhname="" then
response.write "<p align=center>请输入用户名!"
response.End
end if

if mmwenti="" then
response.