registersuser.asp

ASP原码

<!--#include file="../System/Const.asp"-->
<!--#include file="../System/misc.asp"-->

<%
	set cn=server.CreateObject("ADODB.connection")
    cn.Open DSN_ACLASS
	set rs=server.CreateObject("ADODB.recordset")
	rs.Open "select ID from TBL_SRUSER where USERNAME='"&request("uname")&"' and PASSWORD='"&request("upass")&"'", cn
	if rs.EOF then
		Response.Write "用户名或密码错误，注册失败！"
		response.end
	end if

	user_id=rs("ID")
	rs.close

	'user_id=GetNewID(cn, "TBL_SRUSER", "ID")
	'sql="insert into TBL_SRUSER(ID, USERNAME, PASSWORD, UID, SCHOOLID) values ("&user_id&", '"&request("uname")&"', '"&request("upass")&"', '"&request("uid")&"', 0)"
	sql="update TBL_SRUSER set UID='"&request("uid")&"' where ID="&user_id&" "
	cn.execute sql

	cn.close
	set cn=nothing

	Response.write "注册成功！"
%>