📄 guest_syscode.asp
字号:
strHTML=strHTML & " <td>" & vbcrlf
strHTML=strHTML & " <input type='text' name='GuestEmail' maxlength='30' size='20' value='" & WriteEmail & "'>"
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " <td rowspan='4'>" & vbcrlf
strHTML=strHTML & " <input type='hidden' name='GuestImages' value='01'>" & vbcrlf
strHTML=strHTML & " <img name=showimages src='" & GFacePath & WriteImages & ".gif' width='80' height='90' border='0' onClick=window.open('guestselect.asp?action=face','face','width=480,height=400,resizable=1,scrollbars=1') title=点击选择头像 style='cursor:hand'>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " <td colspan='2' rowspan='4'>" & vbcrlf
strHTML=strHTML & " <table width='100%' border='0' cellspacing='0' cellpadding='0' id=reginfo style='DISPLAY: none'>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td width='35%' align='center'>注册密码：<br>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " <td>" & vbcrlf
strHTML=strHTML & " <input type=password maxlength=16 size=16 name=psw>" & vbcrlf
strHTML=strHTML & " </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=password maxlength=16 size=16 name=pswc>" & vbcrlf
strHTML=strHTML & " </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=text maxlength=30 size=16 name=question>" & vbcrlf
strHTML=strHTML & " </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=text maxlength=30 size=16 name=answer>" & 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'> Oicq：</td>" & vbcrlf
strHTML=strHTML & " <td>" & vbcrlf
strHTML=strHTML & " <input type='text' name='GuestOicq' maxlength='15' size='20' value='" & WriteOicq & "'>"
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center'> Icq：</td>" & vbcrlf
strHTML=strHTML & " <td>" & vbcrlf
strHTML=strHTML & " <input type='text' name='GuestIcq' maxlength='15' size='20' value='" & WriteIcq & "'>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center'> Msn：</td>" & vbcrlf
strHTML=strHTML & " <td>" & vbcrlf
strHTML=strHTML & " <input type='text' name='GuestMsn' maxlength='40' size='20' value='" & WriteMsn & "'>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center'> 个人主页：</td>" & vbcrlf
strHTML=strHTML & " <td colspan='4'>" & vbcrlf
strHTML=strHTML & " <input type='text' name='GuestHomepage' maxlength='80' size='37' value='" & WriteHomepage & "'>" & vbcrlf
strHTML=strHTML & " " & vbcrlf
if EnableUserReg=True then
'修改整合论坛版本的用户注册链接
If UserTableType="MyPower" then
strHTML=strHTML & " <input type='checkbox' name='reg' value='1' onClick=showreginfo() style='BORDER:0px;'>" & vbcrlf
else
strHTML=strHTML & " <input type='checkbox' name='reg' value='1' onClick=""JavaScript:window.open('../"&Forum_Dir&"reg.asp','注册信息')"" style='BORDER:0px;'>" & vbcrlf
End if
'完毕
strHTML=strHTML & " <span id=reginfoshowtext>我想同时注册成为贵站会员</span>" & vbcrlf
else
strHTML=strHTML & " <input type='hidden' name='reg' value='0'>" & vbcrlf
end if
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td></td>" & vbcrlf
strHTML=strHTML & " <td colspan='4' height='5'></td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
else
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center'>选择头像：</td>" & vbcrlf
strHTML=strHTML & " <td>" & vbcrlf
strHTML=strHTML & " <input type='hidden' name='GuestName' value='" & WriteName & "'>" & vbcrlf
strHTML=strHTML & " <input type='hidden' name='reg' value='0'>" & vbcrlf
strHTML=strHTML & " <input type='hidden' name='GuestImages' value='" & WriteImages & "'>" & vbcrlf
strHTML=strHTML & " <img name=showimages src='" & GFacePath & WriteImages & ".gif' width='80' height='90' border='0' onClick=window.open('guestselect.asp?action=face','face','width=480,height=400,resizable=1,scrollbars=1') title=点击选择头像 style='cursor:hand'>" & 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> </td>" & vbcrlf
strHTML=strHTML & " <td> </td>" & vbcrlf
strHTML=strHTML & " <td> </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
end if
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center'><font color=red>*</font> 留言主题：</td>" & vbcrlf
strHTML=strHTML & " <td colspan='4'>" & vbcrlf
strHTML=strHTML & " <input type='text' name='GuestTitle' size='37' maxlength='21' value='" & WriteTitle & "'>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center'> 现在心情：</td>" & vbcrlf
strHTML=strHTML & " <td colspan='4'>" & vbcrlf
for i=1 to 20
strHTML=strHTML & "<input type='radio' name='GuestFace' value='" & i & "'"
if i=clng(WriteFace) then strHTML=strHTML & " checked"
strHTML=strHTML & " style='BORDER:0px;width:19;'>"
strHTML=strHTML & "<img src='" & GImagePath & "face" & i & ".gif' width='19' height='19'>" & vbcrlf
if i mod 10 =0 then strHTML=strHTML & "<br>"
next
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td align='center'> Ubb标签：</td>" & vbcrlf
strHTML=strHTML & " <td colspan='4'>" & showubb()
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td valign='middle' align='center'><font color=red>*</font> 留言内容：<br>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " <td colspan='4' valign='top'>" & vbcrlf
strHTML=strHTML & " <textarea name='GuestContent' cols='59' rows='6' onkeydown=gbcount(this.form.GuestContent,this.form.total,this.form.used,this.form.remain); onkeyup=gbcount(this.form.GuestContent,this.form.total,this.form.used,this.form.remain);>" & WriteContent & "</textarea>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td valign='middle' align='center'></td>" & vbcrlf
strHTML=strHTML & " <td colspan='4' valign='top'>" & vbcrlf
strHTML=strHTML & " 最多字数：<INPUT disabled maxLength=4 name=total size=3 value=500>" & vbcrlf
strHTML=strHTML & " 已用字数：<INPUT disabled maxLength=4 name=used size=3 value=0>" & vbcrlf
strHTML=strHTML & " 剩余字数：<INPUT disabled maxLength=4 name=remain size=3 value=500>" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td valign='middle' align='center'> 是否隐藏：</td>" & vbcrlf
strHTML=strHTML & " <td colspan='4' valign='top'>" & vbcrlf
strHTML=strHTML & " <input type='radio' name='GuestIsPrivate' value='no' "
if WriteIsPrivate=False then strHTML=strHTML & " checked"
strHTML=strHTML & " style='BORDER:0px;'>" & vbcrlf
strHTML=strHTML & " 正常" & vbcrlf
strHTML=strHTML & " <input type='radio' name='GuestIsPrivate' value='yes' "
if WriteIsPrivate=True then strHTML=strHTML & " checked"
strHTML=strHTML & " style='BORDER:0px;'>" & vbcrlf
strHTML=strHTML & " 隐藏 <font color=red>*</font> <font color=green>选择隐藏后，此留言只有管理员和留言者才可以看到。</font></td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td colspan='5' align='center' height='40'>" & vbcrlf
strHTML=strHTML & " <input type='hidden' name='saveedit' value='" & SaveEdit & "'>"
strHTML=strHTML & " <input type='hidden' name='saveeditid' value='" & SaveEditId & "'>"
strHTML=strHTML & " <input type='submit' name='Submit1' value=' 发 表' >" & vbcrlf
strHTML=strHTML & " " & vbcrlf
strHTML=strHTML & " <input type='button' name='Submit2' value=' 预 览 ' onclick=guestpreview()>" & vbcrlf
strHTML=strHTML & " " & vbcrlf
strHTML=strHTML & " <input type='reset' name='Submit3' value=' 重 填 ' >" & vbcrlf
strHTML=strHTML & " </td>" & vbcrlf
strHTML=strHTML & " </tr>" & vbcrlf
strHTML=strHTML & " </form>" & vbcrlf
strHTML=strHTML & " <form name=preview action='GuestPreview.asp' method=post target=GuestPreview>" & vbcrlf
strHTML=strHTML & " <input type=hidden name=title value=''><input type=hidden name=content value=''>" & vbcrlf
strHTML=strHTML & " </form>" & 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 height='15' align='center' valign='top'>" & vbcrlf
strHTML=strHTML & " <table width='98%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbcrlf
strHTML=strHTML & " <tr>" & vbcrlf
strHTML=strHTML & " <td height='13' class='tdbg_left2'></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
response.write strHTML
end sub
'=================================================
'过程名：ReplyGuest()
'作 用：回复留言
'参 数：无
'=================================================
sub ReplyGuest()
dim ReplyId
ReplyId=request("guestid")
if ReplyId="" then
call Guest_info("<li>请指定要回复的留言ID！</li>")
exit sub
else
ReplyId=clng(ReplyId)
sqlGuest="select * from PE_Guest where GuestId=" & ReplyId
end if
set rsGuest=server.createobject("adodb.recordset")
rsGuest.open sqlGuest,conn,1,1
if rsGuest.bof and rsGuest.eof then
response.write "<br><li>没有任何留言</li>"
exit sub
else
WriteTitle="Re: "&rsGuest("GuestTitle")
call ShowGuestList()
end if
rsGuest.close
set rsGuest=nothing
call WriteGuest()
end sub
'=================================================
'过程名：EditGuest()
'作 用：编辑留言
'参 数：无
'=================================================
sub EditGuest()
dim EditId
EditId=request("guestid")
if EditId="" then
call Guest_info("<li>请指定要编辑的留言ID！</li>")
exit sub
else
EditId=clng(EditId)
sqlGuest="select * from PE_Guest where GuestId=" & EditId
end if
set rsGuest=server.createobject("adodb.recordset")
rsGuest.open sqlGuest,conn,1,1
if rsGuest.bof and rsGuest.eof then
response.write "<br><li>找不到您指定的留言！</li>"
exit sub
end if
if rsGuest("GuestName")=UserName and rsGuest("GuestIsPassed")=False then
WriteName=rsGuest("GuestName")
WriteType=rsGuest("GuestType")
WriteSex=rsGuest("GuestSex")
WriteEmail=rsGuest("GuestEmail")
WriteOicq=rsGuest("GuestOicq")
WriteIcq=rsGuest("GuestIcq")
WriteMsn=rsGuest("GuestMsn")
WriteHomepage=rsGuest("GuestHomepage")
WriteFace=rsGuest("GuestFace")
WriteImages=rsGuest("GuestImages")
WriteTitle=rsGuest("GuestTitle")
WriteContent=rsGuest("GuestContent")
WriteIsPrivate=rsGuest("GuestIsPrivate")
SaveEdit=1
SaveEditId=EditId
call ShowGuestList()
call WriteGuest()
else
call Guest_info("<li>用户只可以编辑自己发表的留言，且留言未通过审核！</li>")
end if
rsGuest.close
set rsGuest=nothing
end sub
'=================================================
'过程名：DelGuest()
'作 用：删除留言
'参 数：无
'=================================================
sub DelGuest()
dim delid
delid=trim(Request("guestid"))
if delid="" then
call Guest_info("<li>请指定要删除的留言ID！</li>")
exit sub
end if
if instr(delid,",")>0 then
delid=ReplaceBadChar(replace(delid," ",""))
sql="Select * from PE_Guest where GuestID in (" & delid & ")"
else
delid=clng(delid)
sql="select * from PE_Guest where GuestID=" & delid
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
if rs.bof and rs.eof then
response.write "<br><li>找不到您指定的留言！</li>"
exit sub
end if
if rs("GuestName")<>UserName or rs("GuestIsPassed")=True then
call Guest_info("<li>您没有使用此功能的权限！</li>")
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -