admin_code_guest.asp

为我们公司使用的oa系统

<%
'=================================================
'过程名：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("<li>留言发送失败！</li><li>请将必要的信息填写完整！</li>")
		exit sub
	end if

	if SaveEdit=1 then
		SaveEditId=request("saveeditid")
		if SaveEditId="" then
			call Guest_info("<li>请指定要编辑的留言ID！</li>")
			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("<li>留言编辑成功！</li><li>只有管理员审核通过的留言才会显示出来。</li>")
			else
				call Guest_info("<li>留言编辑成功！</li>")
			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="<li>您的留言已经发送成功！</li><li>只有管理员审核通过的留言才会显示出来。</li>"
			else
				Saveinfo="<li>您的留言已经发送成功！</li>"
			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 & "<li>注册失败！您输入的名字已经被注册。</li>"
				elseif GuestName="" or strLength(GuestName)>14 or strLength(GuestName)<4 then
					Saveinfo= Saveinfo & "<li>注册失败！输入用户名不符合要求(不能大于14小于4)</li>"
				elseif GuestPassword<>GuestPasswordConfirm then
					Saveinfo= Saveinfo & "<li>注册失败！密码与确认密码不相符。</li>"
				elseif GuestEmail="" or IsValidEmail(GuestEmail)=false then
					Saveinfo= Saveinfo & "<li>注册失败！您的Email为空或有错误</li>"
				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 & "<li>系统已经发送了一封确认信到你注册时填写的信箱中，你必须在收到确认信并通过确认信中链接进行确认后，你才能正式成为本站的注册用户。</li>"
					else
						if AdminCheckReg="Yes" then
							Saveinfo= Saveinfo & "<li>请等待管理通过你的注册申请后，你就可以正式成为本站的注册用户了。</li>"
						else			
							Saveinfo= Saveinfo & "<li>用户注册成功！欢迎您的加入！！！</li>"
						end if
					end if		

				end if
			end if
			call Guest_info(Saveinfo)
		else
			call Guest_info("<li>请不要连续发送内容相同的留言或空留言！</li>")
		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 & "<br>请点此进行确认：<a href='" & CheckUrl & "'>" & CheckUrl & "</a>"
	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 & "<br><table cellpadding=2 cellspacing=1 border=0 width=460 class='border' align=center>" & vbcrlf
	strInfo=strInfo & "<tr align='center' class='title'><td><strong>留言操作反馈信息</strong></td></tr>" & vbcrlf
	strInfo=strInfo & "<tr class='tdbg'><td height='100' valign='top'><br>" & info &"</td></tr>" & vbcrlf
	strInfo=strInfo & "<tr align='center' class='tdbg'><td><a href='" & strFileName & "'>【查看留言】</a><a href='" & strFileName & "?action=write'>【签写留言】</a>" & vbcrlf
	strInfo=strInfo & "</td></tr></table><br>" & vbcrlf
	response.write strInfo
end sub


'=================================================
'过程名：sub ShowTip()
'作  用：显示提示
'参  数：无
'=================================================
sub ShowTip()
%>
<DIV id=toolTipLayer style="POSITION: absolute; VISIBILITY: hidden"></DIV>
<SCRIPT language=JavaScript>

var ns4 = document.layers;
var ns6 = document.getElementById && !document.all;
var ie4 = document.all;
offsetX = 0;
offsetY = 20;
var toolTipSTYLE="";
function initToolTips()
{
  if(ns4||ns6||ie4)
  {
    if(ns4) toolTipSTYLE = document.toolTipLayer;
    else if(ns6) toolTipSTYLE = document.getElementById("toolTipLayer").style;
    else if(ie4) toolTipSTYLE = document.all.toolTipLayer.style;
    if(ns4) document.captureEvents(Event.MOUSEMOVE);
    else
    {
      toolTipSTYLE.visibility = "visible";
      toolTipSTYLE.display = "none";
    }
    document.onmousemove = moveToMouseLoc;
  }
}
function toolTip(msg, fg, bg)
{
  if(toolTip.arguments.length < 1) // hide
  {
    if(ns4) toolTipSTYLE.visibility = "hidden";
    else toolTipSTYLE.display = "none";
  }
  else // show
  {
    if(!fg) fg = "#333333";
    if(!bg) bg = "#FFFFFF";
    var content =
    '<table border="0" cellspacing="0" cellpadding="1" bgcolor="' + fg + '"><td>' +
    '<table border="0" cellspacing="0" cellpadding="1" bgcolor="' + bg + 
    '"><td align="left" nowrap style="line-height: 120%"><font color="' + fg +
    '">' + msg +
    '&nbsp\;</font></td></table></td></table>';
    if(ns4)
    {
      toolTipSTYLE.document.write(content);
      toolTipSTYLE.document.close();
      toolTipSTYLE.visibility = "visible";
    }
    if(ns6)
    {
      document.getElementById("toolTipLayer").innerHTML = content;
      toolTipSTYLE.display='block'
    }
    if(ie4)
    {
      document.all("toolTipLayer").innerHTML=content;
      toolTipSTYLE.display='block'
    }
  }
}
function moveToMouseLoc(e)
{
  if(ns4||ns6)
  {
    x = e.pageX;
    y = e.pageY;
  }
  else
  {
    x = event.x + document.body.scrollLeft;
    y = event.y + document.body.scrollTop;
  }