logsendok.asp

来自「俄罗斯方块另类.zip - 又一个俄罗斯方块的代码（转）用vc写的著名游戏俄罗斯」· ASP 代码 · 共 41 行

<%@ language=vbscript %>
<%
lname=trim(request.form("nicname"))
passw=trim(request.form("passw"))
if lname=""then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('请输入呢称！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if passw=""then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('密码不能为空！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if


set conn=server.createobject("adodb.connection")
dbpath=server.mappath("mis.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
sql = "select * from mis where username='"&lname&"' and passw1='"&passw&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if rs.eof then
 response.write"<script language='javascript'>" & VbCRlf
 response.write"alert('对不起，用户名或密码错误！');" & VbCRlf
 response.write"history.go(-1);" & VbCRlf
 response.write"</script>"
 response.end
end if
lsendid=rs("id")
session("username")=lname
session("passw")=passw
session("sendid")=lsendid
laccid=session("accid")
response.redirect "send.asp?accid="&laccid&""
%>