#12002/2/6 17:21:05
运行后,打开一个空白页面?不是“editmain.htm"
<%
Set Cn=Server.CreateObject("ADODB.Connection")
Cn.open"DSN=sqlwwl;uid=eee;pwd=eee;database=wwl"
set rs=server.CreateObject ("ADODB.recordset")
rs.Open "select * from usertable",cn,1,3
%>
<% if rs("user")=request.form("user") and rs("password")=request.form("password") then
Response.Redirect "editmain.htm"
else
if rs("user")=request.form("user") then
Response.Write " 密码不对!"
else
Response.Write " 用户名不对!"
end if
end if
%>