checkreg.asp

来自「史上最全面的留言板课程设计」· ASP 代码 · 共 14 行

<!--#include file="conn.asp"-->
<%

dim regname,regpwd
regname=request.Form("regname")
regpwd=request.Form("regpwd")
session("regname")=regname

'set rs=conn.execute("select user_psw from users where user_name='" &regpwd& "'")
set rs=server.createobject("ADODB.Recordset")
    sql="select * from users where user_name='" &regname& "'"
	rs.open sql,conn,3,3
    if not rs.eof then
	    session("msg")="璇ョ敤鎴峰悕宸茬粡鏈変汉浣跨敤,璇风敤鍏朵粬鐢ㄦ埛鍚