<% '================================================= '过程名: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 & "
    " & vbcrlf strInfo=strInfo & "" & vbcrlf strInfo=strInfo & "" & vbcrlf strInfo=strInfo & "
    留言操作反馈信息

    " & info &"
    【查看留言】【签写留言】" & vbcrlf strInfo=strInfo & "

    " & vbcrlf response.write strInfo end sub '================================================= '过程名:sub ShowTip() '作 用:显示提示 '参 数:无 '================================================= sub ShowTip() %> <% end sub '================================================= '过程名:sub ShowUbb() '作 用:显示Ubb标签 '参 数:info 提示信息内容 '================================================= sub ShowUbb() %> 粗体斜体下划线居中超级连接Email连接图片Flash图片Shockwave文件realplay视频文件Media Player视频文件QuickTime视频文件代码引用飞行字移动字发光字阴影字帮助
    字体: 字体大小 颜色:   选择心情图标 <%end sub%>