📄 guest_syscode.asp
字号:
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " <td width='165'>" & vbcrlf
strHTML=strHTML & " <img src='" & GImagePath & "posttime.gif' width='11' height='11' align='absmiddle'>" & vbcrlf
strHTML=strHTML & " <font color='#006633'>：" & rsGuest("GuestDatetime") & "</font>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </table>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center' height='153' valign='top' class='main_tdbg_575'>" & vbcrlf
strHTML=strHTML & " <table width='100%' border='0' cellpadding='0' cellspacing='3'>" & vbcrlf
if rsGuest("GuestIsPassed")=True then
strHTML=strHTML & " <tr>" & vbcrlf
else
strHTML=strHTML & " <tr>" & vbcrlf
end if
strHTML=strHTML & " <td width='100' align='center' height='130' valign='top'>" & vbcrlf
strHTML=strHTML & " <img src='" & GFacePath & rsGuest("GuestImages") & ".gif' width='80' height='90' onMouseOut=toolTip() onMouseOver=""toolTip('" & GuestTip & "')""><br><br>" & vbcrlf
if rsGuest("GuestType")=1 then
strHTML=strHTML & " <font color='#006633'>【用户】<br>" & KeywordReplace(UserGuestName) & "</font>"
else
strHTML=strHTML & " 【游客】<br>" & KeywordReplace(UserGuestName)
end if
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " <td align='center' height='153' width='1' bgcolor='#B4C9E7'>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " <td>" & vbcrlf
strHTML=strHTML & " <table width='100%' border='0' cellpadding='6' cellspacing='0' height='125' style='TABLE-LAYOUT: fixed'>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='left' valign='top'><img src='" & GImagePath & "face" & rsGuest("GuestFace") & ".gif' width='19' height='19'>" & vbcrlf
if rsGuest("GuestIsPrivate")=true and rsGuest("GuestName")<>UserName then
strHTML=strHTML & " <br><br><font color=green>" & vbcrlf
strHTML=strHTML & " **************************************<br>" & vbcrlf
strHTML=strHTML & " * 隐藏留言，管理员和留言用户可以看到 *<br>" & vbcrlf
strHTML=strHTML & " **************************************" & vbcrlf
strHTML=strHTML & " </font>" & vbcrlf
else
if rsGuest("GuestIsPrivate")=true then
strHTML=strHTML & " <font color=green>[隐藏]</font> " & vbcrlf
end if
strHTML=strHTML & KeywordReplace(ubbcode(dvHTMLEncode(rsGuest("GuestContent"))))
end if
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='left' valign='bottom'>" & vbcrlf
if rsGuest("GuestReply")<>"" then
strHTML=strHTML & " <table width='100%' border='0' cellspacing='0' cellpadding='2'>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td height='1' bgcolor='#B4C9E7'></td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td valign='top'>" & vbcrlf
strHTML=strHTML & " <table width='100%' border='0' cellpadding='0' cellspacing='0' style='TABLE-LAYOUT: fixed'>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td><font color='#006633'> 管理员<font color='#FF0000'>[" & rsGuest("GuestReplyAdmin") & "]</font>回复:" & vbcrlf & rsGuest("GuestReplyDatetime") & "</font></td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td valign='bottom'><font color='#006633'>" & KeywordReplace(ubbcode(dvHTMLEncode(rsGuest("GuestReply")))) & "</font></td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </table>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </table>" & vbcrlf
end if
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </table>" & vbcrlf
strHTML=strHTML & " <table width='100%' height='1' border='0' cellpadding='0' cellspacing='0' bgcolor='#B4C9E7'>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td></td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </table>" & vbcrlf
strHTML=strHTML & " <table width=100% border=0 cellpadding=0 cellspacing=3>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td>" & vbcrlf
if UserHomepage="" or isnull(UserHomepage) then
strHTML=strHTML & "<img src=" & GImagePath & "nourl.gif width=45 height=16 alt=" & UserGuestName & "没有留下主页地址 border=0>" & vbcrlf
else
strHTML=strHTML & "<a href=" & UserHomepage & " target=""_blank"">"
strHTML=strHTML & "<img src=" & GImagePath & "url.gif width=45 height=16 alt=" & UserHomepage & " border=0></a>" & vbcrlf
end if
if UserOicq="" or isnull(UserOicq) then
strHTML=strHTML & "<img src=" & GImagePath & "nooicq.gif width=45 height=16 alt=" & UserGuestName & "没有留下QQ号码 border=0>" & vbcrlf
else
strHTML=strHTML & "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=" & UserOicq & " target='_blank'>"
strHTML=strHTML & "<img src=" & GImagePath & "oicq.gif width=45 height=16 alt=" & UserOicq & " border=0 ></a>" & vbcrlf
end if
if UserEmail="" or isnull(UserEmail) then
strHTML=strHTML & "<img src=" & GImagePath & "noemail.gif width=45 height=16 alt=" & UserGuestName & "没有留下Email地址 border=0>" & vbcrlf
else
strHTML=strHTML & "<a href=mailto:" & UserEmail & ">"
strHTML=strHTML & "<img src=" & GImagePath & "email.gif width=45 height=16 border=0 alt=" & UserEmail & "></a>" & vbcrlf
end if
strHTML=strHTML & "<img src=" & GImagePath & "other.gif width=45 height=16 border=0 onMouseOut=toolTip() onMouseOver=""toolTip(' Icq：" & UserIcq & "<br> Msn：" & UserMsn & "<br> I P：" & rsGuest("GuestIP") & "')"">" & vbcrlf
strHTML=strHTML & "<a href=" & FileName & "?action=reply&guestid=" & rsGuest("GuestId") & ">"
strHTML=strHTML & "<img src=" & GImagePath & "reply.gif width=45 height=16 border=0 alt=回复这条留言></a>" & vbcrlf
if rsGuest("GuestName")=UserName and rsGuest("GuestIsPassed")=False then
strHTML=strHTML & "<a href=" & FileName & "?action=edit&guestid=" & rsGuest("GuestId") & ">"
strHTML=strHTML & "<img src=" & GImagePath & "edit.gif width=45 height=16 border=0 alt=编辑这条留言></a>" & vbcrlf
strHTML=strHTML & "<a href=" & FileName & "?action=del&guestid=" & rsGuest("GuestId") & " onClick=""return confirm('确定要删除此留言吗？');"">"
strHTML=strHTML & "<img src=" & GImagePath & "del.gif width=45 height=16 alt=删除这条留言 border=0></a>" & vbcrlf
end if
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </table>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </table>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </table>" & vbcrlf
strHTML=strHTML & " <table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td class='main_shadow'>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </table>" & vbcrlf
rsGuest.movenext
GuestNum=GuestNum+1
if GuestNum>=MaxPerPage then exit do
loop
response.write strHTML
end sub
function ShowJS_Guest()
dim strJS
strJS="<script language = 'JavaScript'>" & vbcrlf
strJS=strJS & "function changeimage()" & vbcrlf
strJS=strJS & "{" & vbcrlf
strJS=strJS & " document.myform.GuestImages.value=document.myform.Image.value;" & vbcrlf
strJS=strJS & " document.myform.showimages.src='" & GFacePath & "'+document.myform.Image.value+'.gif';" & vbcrlf
strJS=strJS & "}" & vbcrlf
strJS=strJS & "function guestpreview()" & vbcrlf
strJS=strJS & "{" & vbcrlf
strJS=strJS & " document.preview.content.value=document.myform.GuestContent.value;" & vbcrlf
strJS=strJS & " var popupWin = window.open('GuestPreview.asp', 'GuestPreview', 'scrollbars=yes,width=620,height=230');" & vbcrlf
strJS=strJS & " document.preview.submit();" & vbcrlf
strJS=strJS & "}" & vbcrlf
strJS=strJS & "function CheckForm()" & vbcrlf
strJS=strJS & "{" & vbcrlf
strJS=strJS & " if(document.myform.GuestName.value==''){" & vbcrlf
strJS=strJS & " alert('姓名不能为空！');" & vbcrlf
strJS=strJS & " document.myform.GuestName.focus();" & vbcrlf
strJS=strJS & " return(false) ;" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " if(document.myform.GuestTitle.value==''){" & vbcrlf
strJS=strJS & " alert('留言主题不能为空！');" & vbcrlf
strJS=strJS & " document.myform.GuestTitle.focus();" & vbcrlf
strJS=strJS & " return(false);" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " if(document.myform.GuestContent.value==''){" & vbcrlf
strJS=strJS & " alert('留言内容不能为空！');" & vbcrlf
strJS=strJS & " document.myform.GuestContent.focus();" & vbcrlf
strJS=strJS & " return(false);" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " if(document.myform.GuestContent.value.length>500){" & vbcrlf
strJS=strJS & " alert('留言内容不能超过500字符！');" & vbcrlf
strJS=strJS & " document.myform.GuestContent.focus();" & vbcrlf
strJS=strJS & " return(false);" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " if(document.myform.reg.checked==true){" & vbcrlf
strJS=strJS & " if(document.myform.GuestName.value.length>14 || document.myform.GuestName.value.length<4){" & vbcrlf
strJS=strJS & " alert('如果注册，用户名长度不能大于14或小于4！');" & vbcrlf
strJS=strJS & " document.myform.GuestName.focus();" & vbcrlf
strJS=strJS & " return(false);" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " if(document.myform.GuestEmail.value==''){" & vbcrlf
strJS=strJS & " alert('如果注册，用户Email不能为空且必须正确填写！');" & vbcrlf
strJS=strJS & " document.myform.GuestEmail.focus();" & vbcrlf
strJS=strJS & " return(false);" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " if(document.myform.psw.value=='' || document.myform.psw.value.length<6){" & vbcrlf
strJS=strJS & " alert('如果注册，注册密码不能为空，且长度至少六位！');" & vbcrlf
strJS=strJS & " document.myform.psw.focus();" & vbcrlf
strJS=strJS & " return(false);" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " if(document.myform.pswc.value=='' || document.myform.pswc.value!=document.myform.psw.value){" & vbcrlf
strJS=strJS & " alert('确认密码不能为空，且需与注册密码相同！');" & vbcrlf
strJS=strJS & " document.myform.pswc.focus();" & vbcrlf
strJS=strJS & " return(false);" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " if(document.myform.question.value==''){" & vbcrlf
strJS=strJS & " alert('密码问题不能为空！');" & vbcrlf
strJS=strJS & " document.myform.question.focus();" & vbcrlf
strJS=strJS & " return(false);" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " if(document.myform.answer.value==''){" & vbcrlf
strJS=strJS & " alert('问题答案不能为空！');" & vbcrlf
strJS=strJS & " document.myform.answer.focus();" & vbcrlf
strJS=strJS & " return(false);" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & "}" & vbcrlf
strJS=strJS & "function showreginfo()" & vbcrlf
strJS=strJS & "{" & vbcrlf
strJS=strJS & " if(document.myform.reg.checked == true){" & vbcrlf
strJS=strJS & " reginfo.style.display = '';" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " else{" & vbcrlf
strJS=strJS & " reginfo.style.display = 'none';" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & "}" & vbcrlf
strJS=strJS & "function gbcount(message,total,used,remain)" & vbcrlf
strJS=strJS & "{" & vbcrlf
strJS=strJS & " var max;" & vbcrlf
strJS=strJS & " max = total.value;" & vbcrlf
strJS=strJS & " if(message.value.length > max){" & vbcrlf
strJS=strJS & " message.value = message.value.substring(0,max);" & vbcrlf
strJS=strJS & " used.value = max;" & vbcrlf
strJS=strJS & " remain.value = 0;" & vbcrlf
strJS=strJS & " alert('留言不能超过 500 个字!');" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & " else{" & vbcrlf
strJS=strJS & " used.value = message.value.length;" & vbcrlf
strJS=strJS & " remain.value = max - used.value;" & vbcrlf
strJS=strJS & " }" & vbcrlf
strJS=strJS & "}" & vbcrlf
strJS=strJS & "</script>" & vbcrlf
ShowJS_Guest=strJS
end function
'=================================================
'过程名：WriteGuest()
'作 用：签写留言
'参 数：无
'=================================================
sub WriteGuest()
if SaveEdit<>1 then
if UserLogined=False then
WriteType=0
else
WriteType=1
end if
WriteName=UserName
WriteSex="1"
WriteFace="1"
WriteImages="01"
WriteHomepage="http://"
WriteIsPrivate=False
end if
strHTML=ShowJS_Guest()
strHTML=strHTML & "<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td colspan='5' class='main_title_575'><font color=green>" & PageTitle & "</font></td>"
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td>" & vbcrlf
strHTML=strHTML & " <table width='100%' cellpadding='1' cellspacing='0' class='main_tdbg_575'>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td colspan='5' height='10'></td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <form name='myform' method='post' action='" & FileName & "?action=savewrite' onSubmit='return CheckForm()'>" & vbcrlf
if WriteType=0 then
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td width='20%' align='center'> <font color=red>*</font> 姓 名：</td>" & vbcrlf
strHTML=strHTML & " <td width='30%'>" & vbcrlf
strHTML=strHTML & " <input type='text' name='GuestName' maxlength='14' size='20' value='" & WriteName & "'>"
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " <td width='22%'> </td>" & vbcrlf
strHTML=strHTML & " <td colspan='2'> </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center'> 性 别：</td>" & vbcrlf
strHTML=strHTML & " <td>" & vbcrlf
strHTML=strHTML & " <input type='radio' name='GuestSex' value='1' "
if WriteSex=1 then strHTML=strHTML & " checked"
strHTML=strHTML & " style='BORDER:0px;'>" & vbcrlf
strHTML=strHTML & " 男 " & vbcrlf
strHTML=strHTML & " <input type='radio' name='GuestSex' value='0' "
if WriteSex=0 then strHTML=strHTML & " checked"
strHTML=strHTML & " style='BORDER:0px;'>" & vbcrlf
strHTML=strHTML & " 女 </td>" & vbcrlf
strHTML=strHTML & " <td> " & vbcrlf
strHTML=strHTML & " <select name='Image' size='1' onChange='changeimage();' >" & vbcrlf
for i=1 to 9
strHTML=strHTML & " <option value='0" & i & "'>0" & i & "</option>" & vbcrlf
next
for i=10 to 23
strHTML=strHTML & " <option value='" & i & "'>" & i & "</option>" & vbcrlf
next
strHTML=strHTML & " </select>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " <td colspan='2'> </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center'> E-mail：</td>" & vbcrlf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -