api_reponse.asp

这些都是我以前学习是用到的源码

		Rs("UserFace") = "face/1.gif"
		Rs("userpoint") = CLng(Newasp.AddUserPoint)
		Rs("usermoney") = 0
		Rs("savemoney") = 0
		Rs("prepaid") = 0
		Rs("experience") = 10
		Rs("charm") = 10
		Rs("TrueName") = UserName
		Rs("usersex") = usersex
		Rs("usermail") = UserEmail
		Rs("oicq") = ""
		Rs("question") = Question
		Rs("answer") = Answer
		Rs("JoinTime") = Now()
		Rs("ExpireTime") = Now()
		Rs("LastTime") = Now()
		Rs("Protect") = 0
		Rs("usermsg") = 0
		Rs("userlastip") = Newasp.GetUserip
		Rs("userlogin") = 0
		Rs("usersetting") = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
	Rs.update
	Rs.Close
	Set Rs = Nothing
	Status = 0
	Messenge = "用户注册成功。"
End Sub

Sub UesrLogin()
	Dim UserPass
	
	UserPass = Newasp.checkstr(XmlDoc.documentElement.selectSingleNode("password").text)
	If UserName="" or UserPass="" Then
		Status = 1
		Messenge = Messenge & "<li>请填写用户名或密码。</li>"
		Exit Sub
	End If
	UserPass = Md5(UserPass)
	
	If ChkUserLogin(username,UserPass,1) Then
		Status = 0
		Messenge = Messenge & "<li>登陆成功。</li>"
	Else
		Status = 1
		Messenge = Messenge & "<li>登陆失败。</li>"
	End If
End Sub

Sub LogoutUser()
	Response.Cookies(Newasp.Cookies_Name).path = "/"
	Response.Cookies(Newasp.Cookies_Name)("userid") = ""
	Response.Cookies(Newasp.Cookies_Name)("username") = ""
	Response.Cookies(Newasp.Cookies_Name)("password") = ""
	Response.Cookies(Newasp.Cookies_Name)("nickname") = ""
	Response.Cookies(Newasp.Cookies_Name)("UserGrade") = ""
	Response.Cookies(Newasp.Cookies_Name)("UserGroup") = ""
	Response.Cookies(Newasp.Cookies_Name)("UserClass") = ""
	Response.Cookies(Newasp.Cookies_Name)("UserToday") = ""
	Response.Cookies(Newasp.Cookies_Name)("usercookies") = ""
	Response.Cookies(Newasp.Cookies_Name)("LastTimeDate") = ""
	Response.Cookies(Newasp.Cookies_Name)("LastTimeIP") = ""
	Response.Cookies(Newasp.Cookies_Name)("LastTime") = ""
	Response.Cookies(Newasp.Cookies_Name) = ""
End Sub

Sub UpdateUser()
	Dim Rs,SQL
	Dim UserPass,UserEmail,Question,Answer
	UserPass = Newasp.checkstr(XmlDoc.documentElement.selectSingleNode("password").text)
	UserEmail = Newasp.checkstr(Trim(XmlDoc.documentElement.selectSingleNode("email").text))
	Question = Newasp.checkstr(XmlDoc.documentElement.selectSingleNode("question").text)
	Answer = Newasp.checkstr(XmlDoc.documentElement.selectSingleNode("answer").text)
	If UserPass <> "" Then
		UserPass = Md5(UserPass)
	End If
	If Answer <> "" THen
		Answer = Md5(Answer)
	End If
	If IsValidEmail(UserEmail) = False Then
		UserEmail = ""
	End If
	Set Rs = Server.CreateObject("Adodb.RecordSet")
	SQL = "SELECT TOP 1 * FROM [NC_User] WHERE Username='" & UserName & "'"
	If Not IsObject(Conn) Then ConnectionDatabase
	Rs.Open SQL,Conn,1,3
	If Not Rs.Eof And Not Rs.Bof Then
		If UserPass <> "" Then Rs("password") = UserPass
		If Answer <> "" THen Rs("answer") = Answer
		If UserEmail <> "" Then Rs("usermail") = UserEmail
		If Question <> "" Then Rs("question") = Question
		Rs.update
		Status = 0
		Messenge = "<li>基本资料修改成功。</li>"
	Else
		Status = 1
		Messenge = "<li>该用户不存在，修改资料失败。</li>"
	End If
	Rs.Close
	Set Rs = Nothing
	If UserPass <> "" And Status = 0 Then
		Response.Cookies(Newasp.Cookies_Name)("password") = UserPass
	End If
End Sub

Sub Deleteuser()
	Dim Del_Users,i,AllUserID,Del_UserName
	Dim Rs
	Del_Users = Split(UserName,",")
	For i = 0 To UBound(Del_Users)
		Del_UserName = Newasp.CheckBadstr(Del_Users(i))
		Set Rs = Newasp.Execute("SELECT userid,username FROM [NC_User] WHERE UserName='" & Del_UserName & "'")
		If Not (Rs.Eof And Rs.Bof) Then
			AllUserID = AllUserID & Rs(0) & ","
			Newasp.Execute("UPDATE NC_Message SET delsend=1 WHERE sender='"& Newasp.CheckStr(Rs(1)) &"'")
			Newasp.Execute("DELETE FROM NC_Message WHERE flag=0 And incept='"& Newasp.CheckStr(Rs(1)) &"'")
			Messenge = Messenge & "<li>用户（" & Del_UserName & "）删除成功。</li>"
		End If
	Next
	Set Rs = Nothing
	If AllUserID <> "" Then
		If Right(AllUserID,1) = "," Then AllUserID = Left(AllUserID,Len(AllUserID)-1)
		Newasp.Execute ("DELETE FROM NC_User WHERE userid in (" & AllUserID & ")")
		Newasp.Execute ("DELETE FROM NC_Favorite WHERE userid in (" & AllUserID & ")")
		Newasp.Execute ("DELETE FROM NC_Friend WHERE userid in (" & AllUserID & ")")
	End If
	Status = 0
End Sub

Sub Lockuser()
	Dim UserStatus
	If XmlDoc.documentElement.selectSingleNode("userstatus") is Nothing Then
		Messenge = "<li>参数非法，中止请求。</li>"
		Status = 1
		Exit Sub
	ElseIf Not IsNumeric(XmlDoc.documentElement.selectSingleNode("userstatus").text) Then
		Messenge = "<li>参数非法，中止请求。</li>"
		Status = 1
		Exit Sub
	Else
		UserStatus = Clng(XmlDoc.documentElement.selectSingleNode("userstatus").text)
	End If
	If UserStatus = 0 Then
		Newasp.Execute ("UPDATE NC_User SET UserLock=0 WHERE Username='" & UserName & "'")
	Else
		Newasp.Execute ("UPDATE NC_User SET UserLock=1 WHERE Username='" & UserName & "'")
	End If
	Status = 0
End Sub

Sub SaveUserCookie()
	Dim S_syskey,Password,usercookies,TruePassWord,userclass,Userhidden
	
	S_syskey = Request.QueryString("syskey")
	UserName = Newasp.CheckBadstr(Request.QueryString("UserName"))
	Password = Request.QueryString("Password")
	usercookies = Request.QueryString("savecookie")
	If UserName="" or S_syskey="" Then Exit Sub
	Dim NewMd5,OldMd5
	NewMd5 = Md5(UserName & API_ConformKey)
	Md5OLD = 1
	OldMd5 = Md5(UserName & API_ConformKey)
	Md5OLD = 0
	If Not (S_syskey=NewMd5 or S_syskey=OldMd5) Then
		Exit Sub
	End If
	If usercookies="" or Not IsNumeric(usercookies) Then usercookies = 0
	
	'用户退出
	If Password = "" Then
		Response.Cookies(Newasp.Cookies_Name).path = "/"
		Response.Cookies(Newasp.Cookies_Name)("userid") = ""
		Response.Cookies(Newasp.Cookies_Name)("username") = ""
		Response.Cookies(Newasp.Cookies_Name)("password") = ""
		Response.Cookies(Newasp.Cookies_Name)("nickname") = ""
		Response.Cookies(Newasp.Cookies_Name)("UserGrade") = ""
		Response.Cookies(Newasp.Cookies_Name)("UserGroup") = ""
		Response.Cookies(Newasp.Cookies_Name)("UserClass") = ""
		Response.Cookies(Newasp.Cookies_Name)("UserToday") = ""
		Response.Cookies(Newasp.Cookies_Name)("usercookies") = ""
		Response.Cookies(Newasp.Cookies_Name)("LastTimeDate") = ""
		Response.Cookies(Newasp.Cookies_Name)("LastTimeIP") = ""
		Response.Cookies(Newasp.Cookies_Name)("LastTime") = ""
		Response.Cookies(Newasp.Cookies_Name) = ""
		Exit Sub
	End If
	ChkUserLogin username,password,usercookies
End Sub

Function ChkUserLogin(username,password,usercookies)
	ChkUserLogin = False
	Dim Rs,SQL,Group_Setting
	
	If Not IsObject(Conn) Then ConnectionDatabase
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM [NC_User] WHERE username='" & UserName & "'"
	Rs.Open SQL, Conn, 1, 3
	If Not (Rs.BOF And Rs.EOF) Then
		If password <> Rs("password") Then
			ChkUserLogin = False
			Exit Function
		End If
		If Rs("UserLock") <> 0 Then
			ChkUserLogin = False
			Exit Function
		End If
		Response.Cookies(Newasp.Cookies_Name)("LastTimeDate") = Rs("LastTime")
		Response.Cookies(Newasp.Cookies_Name)("LastTimeIP") = Rs("userlastip")
		Response.Cookies(Newasp.Cookies_Name)("LastTime") = Rs("LastTime")
		Group_Setting=Split(Newasp.UserGroupSetting(Rs("UserGrade")), "|||")
		If Rs("userpoint") < 0 Then
			Rs("userpoint") = CLng(Group_Setting(25))
		Else
			Rs("userpoint") = Rs("userpoint") + CLng(Group_Setting(25))
		End If
		If Rs("experience") < 0 Then
			Rs("experience") = CLng(Group_Setting(32))
		Else
			Rs("experience") = Rs("experience") + CLng(Group_Setting(32))
		End If
		If Rs("charm") < 0 Then
			Rs("charm") = CLng(Group_Setting(33))
		Else
			Rs("charm") = Rs("charm") + CLng(Group_Setting(33))
		End If
		Rs("LastTime") = Now()
		Rs("userlastip") = Newasp.GetUserip
		Rs("UserLogin") = Rs("UserLogin") + 1
		Rs.Update
		
		Select Case usercookies
		Case 0
			Response.Cookies(Newasp.Cookies_Name)("usercookies") = usercookies
		Case 1
			Response.Cookies(Newasp.Cookies_Name).Expires=Date+1
			Response.Cookies(Newasp.Cookies_Name)("usercookies") = usercookies
		Case 2
			Response.Cookies(Newasp.Cookies_Name).Expires=Date+31
			Response.Cookies(Newasp.Cookies_Name)("usercookies") = usercookies
		Case 3
			Response.Cookies(Newasp.Cookies_Name).Expires=Date+365
			Response.Cookies(Newasp.Cookies_Name)("usercookies") = usercookies
		End Select
		Response.Cookies(Newasp.Cookies_Name).path = "/"
		Response.Cookies(Newasp.Cookies_Name)("userid") = Rs("userid")
		Response.Cookies(Newasp.Cookies_Name)("username") = Rs("username")
		Response.Cookies(Newasp.Cookies_Name)("password") = Rs("password")
		Response.Cookies(Newasp.Cookies_Name)("nickname") = Rs("nickname")
		Response.Cookies(Newasp.Cookies_Name)("UserGrade") = Rs("UserGrade")
		Response.Cookies(Newasp.Cookies_Name)("UserGroup") = Rs("UserGroup")
		Response.Cookies(Newasp.Cookies_Name)("UserClass") = Rs("UserClass")
		Response.Cookies(Newasp.Cookies_Name)("UserToday") = Rs("UserToday")
		ChkUserLogin = True
	End If
	Rs.Close
	Set Rs = Nothing
End Function

%>