28,406
社区成员
发帖
与我相关
我的任务
分享■■■■判断用户点击按钮执行对应子程序问题 ===执行“case "注册" new() ”出错
<HTML>
<title>信息查询系统---查询结果</title>
<BODY>
<%select case left(Request.form("cmd"),2)
case "确定" login()
case "注册" new()
end select%>
</BODY>
</HTML>
<%
sub login()
Set mrc=Server.CreateObject("ADODB.Recordset")
lsSql="SELECT * FROM user where 姓名= " & "'" & trim(Request.form("name")) & " '" & " "
mrc.Open lsSql,"DSN=aspdata;UID=;PWD=;DATABASE=pubs"
%>
姓名=<%= Request.form("name")%>
<P>
<% if mrc.eof then %>
用户名不正确
<%else%>
<%if trim(Request.form("mima"))= mrc("密码") then%>
response.write "<SCRIPT language=JavaScript>window.location.href='chaxun.asp'</SCRIPT>"
<%else%>
用户名正确密码不正确
<%end if%>
<% mrc.close %>
<% set mrc=nothing%>
<%end if%>
<%end sub%>
<%sub new()%>
进入注册页面
<%end sub%>
<title>信息查询系统---查询结果</title>
<BODY>
<%select case left(Request.form("cmd"),2)
case "确定" login()
case "注册" new()
end select%>
</BODY>
</HTML>
<%
sub login()
Set mrc=Server.CreateObject("ADODB.Recordset")
lsSql="SELECT * FROM user where 姓名= " & "'" & trim(Request.form("name")) & " '" & " "
mrc.Open lsSql,"DSN=aspdata;UID=;PWD=;DATABASE=pubs"
%>
姓名=<%= Request.form("name")%>
<P>
<% if mrc.eof then %>
用户名不正确
<%else%>
<%if trim(Request.form("mima"))= mrc("密码") then%>
response.write "<SCRIPT language=JavaScript>window.location.href='chaxun.asp'</SCRIPT>"
<%else%>
用户名正确密码不正确
<%end if%>
<% mrc.close %>
<% set mrc=nothing%>
<%end if%>
<%end sub%>
<%sub new()%>
进入注册页面
<%end sub%>
...全文
请发表友善的回复…
发表回复
