%
'=================================================
'过程名:ShowGuestPage()
'作 用:显示留言底部分页
'参 数:无
'=================================================
sub ShowGuestPage()
dim PageFileName
PageFileName=strFileName
if keyword<>"" then
PageFileName=PageFileName&"?keyword="&keyword
end if
if action<>"" then
PageFileName=PageFileName&"?action="&action
end if
if TotalPut>0 then
call showpage(PageFileName,totalPut,MaxPerPage,true,true,"条留言")
end if
end sub
'=================================================
'过程名:SaveWriteGuest()
'作 用:保存留言
'参 数:无
'=================================================
sub SaveWriteGuest()
dim SaveEditId,GuestName,GuestSex,GuestOicq,GuestEmail,GuestHomepage,GuestFace,GuestImages,GuestIcq,GuestMsn
dim GuestTitle,GuestContent,GuestIsPrivate,GuestIsPassed
dim GuestPassword,GuestPasswordConfirm,GuestQuestion,GuestAnswer,GuestUserlevel
dim sqlMaxId,rsMaxId,MaxId,Saveinfo,sqlReg,rsReg
GuestContent=request("GuestContent")
if GuestType=0 then
GuestName=trim(request("GuestName"))
GuestSex=trim(request("GuestSex"))
GuestOicq=trim(request("GuestOicq"))
GuestIcq=trim(request("GuestIcq"))
GuestMsn=trim(request("GuestMsn"))
GuestEmail=trim(request("GuestEmail"))
GuestHomepage=trim(request("GuestHomepage"))
if GuestHomepage="http://" or isnull(GuestHomepage) then GuestHomepage=""
else
GuestName=LoginName
end if
GuestImages=trim(request("GuestImages"))
GuestFace=trim(request("GuestFace"))
GuestTitle=trim(request("GuestTitle"))
GuestIsPrivate=trim(request("GuestIsPrivate"))
if GuestIsPrivate="yes" then
GuestIsPrivate=True
else
GuestIsPrivate=False
end if
if EnableGuestCheck="Yes" then
GuestIsPassed=False
else
GuestIsPassed=True
end if
SaveEdit=request("saveedit")
if GuestName="" or GuestTitle="" or GuestContent="" then
call Guest_info("
留言发送失败!
请将必要的信息填写完整!
")
exit sub
end if
if SaveEdit=1 then
SaveEditId=request("saveeditid")
if SaveEditId="" then
call Guest_info("
请指定要编辑的留言ID!
")
exit sub
else
sqlMaxId="select max(GuestMaxId) as MaxId from Guest"
set rsMaxId=conn.execute(sqlMaxId)
MaxId=rsMaxId("MaxId")
if MaxId="" or isnull(MaxId) then MaxId=0
set rsGuest=server.createobject("adodb.recordset")
sql="select * from Guest where GuestID="&SaveEditId
rsGuest.open sql,conn,1,3
rsGuest("GuestName")=GuestName
rsGuest("GuestSex")=GuestSex
rsGuest("GuestOicq")=GuestOicq
rsGuest("GuestIcq")=GuestIcq
rsGuest("GuestMsn")=GuestMsn
rsGuest("GuestEmail")=GuestEmail
rsGuest("GuestHomepage")=GuestHomepage
rsGuest("GuestIP")=Request.ServerVariables("REMOTE_ADDR")
rsGuest("GuestTitle")=GuestTitle
rsGuest("GuestFace")=GuestFace
rsGuest("GuestContent")=GuestContent
rsGuest("GuestDatetime")=now()
rsGuest("GuestImages")=GuestImages
rsGuest("GuestMaxId")=MaxId+1
rsGuest("GuestIsPrivate")=GuestIsPrivate
rsGuest("GuestIsPassed")=GuestIsPassed
rsGuest.update
if EnableGuestCheck="Yes" then
call Guest_info("
留言编辑成功!
只有管理员审核通过的留言才会显示出来。
")
else
call Guest_info("
留言编辑成功!
")
end if
end if
else
if GuestContent<>session("OldGuestContent") then
session("OldGuestContent")=GuestContent
sqlMaxId="select max(GuestMaxId) as MaxId from Guest"
set rsMaxId=conn.execute(sqlMaxId)
MaxId=rsMaxId("MaxId")
if MaxId="" or isnull(MaxId) then MaxId=0
set rsGuest=server.createobject("adodb.recordset")
sql="select * from Guest"
rsGuest.open sql,conn,1,3
rsGuest.addnew
rsGuest("GuestType")=GuestType
rsGuest("GuestName")=GuestName
rsGuest("GuestSex")=GuestSex
rsGuest("GuestOicq")=GuestOicq
rsGuest("GuestIcq")=GuestIcq
rsGuest("GuestMsn")=GuestMsn
rsGuest("GuestEmail")=GuestEmail
rsGuest("GuestHomepage")=GuestHomepage
rsGuest("GuestIP")=Request.ServerVariables("REMOTE_ADDR")
rsGuest("GuestTitle")=GuestTitle
rsGuest("GuestFace")=GuestFace
rsGuest("GuestContent")=GuestContent
rsGuest("GuestDatetime")=now()
rsGuest("GuestImages")=GuestImages
rsGuest("GuestMaxId")=MaxId+1
rsGuest("GuestIsPrivate")=GuestIsPrivate
rsGuest("GuestIsPassed")=GuestIsPassed
rsGuest.update
if EnableGuestCheck="Yes" then
Saveinfo="
您的留言已经发送成功!
只有管理员审核通过的留言才会显示出来。
"
else
Saveinfo="
您的留言已经发送成功!
"
end if
if request("reg")=1 and GuestType=0 then
GuestPassword=trim(request("psw"))
GuestPasswordConfirm=trim(request("pswc"))
GuestQuestion=trim(request("question"))
GuestAnswer=trim(request("answer"))
set rsReg=server.createobject("adodb.recordset")
sql="select * from " & db_User_Table & " where " & db_User_Name & "='"&GuestName&"'"
rsReg.open sql,Conn_User,1,3
if not rsReg.eof and not rsReg.bof then
Saveinfo= Saveinfo & "
注册失败!您输入的名字已经被注册。
"
elseif GuestName="" or strLength(GuestName)>14 or strLength(GuestName)<4 then
Saveinfo= Saveinfo & "
注册失败!输入用户名不符合要求(不能大于14小于4)
"
elseif GuestPassword<>GuestPasswordConfirm then
Saveinfo= Saveinfo & "
注册失败!密码与确认密码不相符。
"
elseif GuestEmail="" or IsValidEmail(GuestEmail)=false then
Saveinfo= Saveinfo & "
注册失败!您的Email为空或有错误
"
else
rsReg.addnew
rsReg(db_User_Name)=GuestName
rsReg(db_User_Sex)=GuestSex
rsReg(db_User_Password)=md5(GuestPassword)
rsReg(db_User_Question)=GuestQuestion
rsReg(db_User_Answer)=md5(GuestAnswer)
rsReg(db_User_Email)=GuestEmail
rsReg(db_User_Homepage)=GuestHomepage
rsReg(db_User_QQ)=GuestOicq
rsReg(db_User_Icq)=GuestIcq
rsReg(db_User_Msn)=GuestMsn
rsReg(db_User_ArticleCount)=0
rsReg(db_User_ArticleChecked)=0
rsReg(db_User_LoginTimes)=1
rsReg(db_User_LastLoginTime)=NOW()
rsReg(db_User_ChargeType)=ChargeType_999
rsReg(db_User_UserPoint)=UserPoint_999
rsReg(db_User_BeginDate)=formatdatetime(now(),2)
rsReg(db_User_Valid_Num)=ValidDays_999
rsReg(db_User_Valid_Unit)=1
if EmailCheckReg="Yes" then
GuestUserlevel=3000
call SendRegEmail()
else
if AdminCheckReg="Yes" then
GuestUserlevel=2000
else
GuestUserlevel=999
Response.Cookies("asp163")("UserName")=GuestName
Response.Cookies("asp163")("Password") = md5(GuestPassword)
Response.Cookies("asp163")("UserLevel")=GuestUserlevel
end if
end if
rsReg(db_User_UserLevel)=GuestUserlevel
if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
rsReg(db_User_UserClass) = FU_UserClass
rsReg(db_User_TitlePic) = FU_TitlePic
rsReg(db_User_UserGroupID) = FU_UserGroupID
rsReg(db_User_Face) = FU_Face
rsReg(db_User_FaceWidth) = FU_FaceWidth
rsReg(db_User_FaceHeight) = FU_FaceHeight
rsReg(db_User_UserWealth) = FU_UserWealth
rsReg(db_User_UserEP) = FU_UserEP
rsReg(db_User_UserCP) = FU_UserCP
rsReg(db_User_UserGroup) = FU_UserGroup
rsReg(db_User_Showre) = FU_Showre
end if
rsReg.update
call UpdateUserNum(GuestName)
if EmailCheckReg="Yes" then
Saveinfo= Saveinfo & "
"
else
if AdminCheckReg="Yes" then
Saveinfo= Saveinfo & "
请等待管理通过你的注册申请后,你就可以正式成为本站的注册用户了。
"
else
Saveinfo= Saveinfo & "
用户注册成功!欢迎您的加入!!!
"
end if
end if
end if
end if
call Guest_info(Saveinfo)
else
call Guest_info("
请不要连续发送内容相同的留言或空留言!
")
end if
end if
end sub
'=================================================
'过程名:SendRegEmail()
'作 用:发送注册确认信
'参 数:无
'=================================================
sub SendRegEmail()
dim MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority
MailtoAddress=Email
MailtoName=RegUserName
Subject="注册确认信"
MailBody="这是一封注册确认信。你的验证码是:" & CheckNum & vbcrlf & " 请点此进行确认:" & CheckUrl & ""
FromName=SiteName
MailFrom=WebmasterEmail
Priority=3
ErrMsg=SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
if ErrMsg<>"" then FoundErr=True
end sub
'=================================================
'过程名:Guest_info()
'作 用:留言操作信息
'参 数:info 提示信息内容
'=================================================
sub Guest_info(info)
dim strInfo
strInfo=strInfo & "