function.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 48 行

<%Public Function AddUsers(UserName,RealName,Password,Email,State)
   
    Dim Rs,strSQL
	Set Rs=server.CreateObject ("ADODB.RecordSet")
	On Error Resume Next
		'//////////////////添加用户基本信息/////////////////////		
	StrSQL="select * from Users where UserID=0"
		Rs.CursorLocation=3
		Rs.open StrSQL,conn,1,3
		Rs.AddNew
			Rs("UserName") = UserName
			Rs("RealName") = RealName
			Rs("Userpwd") = Password
			Rs("Email") = Email
			Rs("State") = State
		Rs.Update 
		Rs.close

		If Err.number<>0 then
			AddUsers = False
		Else
			AddUsers = True
		End IF 


 
End Function

Public Function EditUsers(UserID,RealName,Password,Email,State)
   
    Dim Rs,strSQL
	Set Rs=server.CreateObject ("ADODB.RecordSet")
	'On Error Resume Next
		'//////////////////修改用户基本信息/////////////////////	
	Conn.Execute "Update Users Set RealName='"&RealName&"',Userpwd='"&password&"',state="&state&" where UserID="&UserID&""	
		


		If Err.number<>0 then
			EditUsers = False
		Else
			EditUsers = True
		End IF 


 
End Function
%>