📄 syscode_book.asp
字号:
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td> 个人主页：</td>" & vbCrLf
Response.Write "<td><input type=""hidden"" name=""web"" size=""20"" value="&Hx66_Homepage&">"&Hx66_Homepage&" </td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td> 你的头像：</td>" & vbCrLf
Response.Write "<td>" & vbCrLf
if Hx66_Photo<>"" then
Response.Write "<img src='"&Hx66_Photo&"' border=0 width=75 height=75><input type='hidden' name='uc' value='"&Hx66_Photo&"'>" & vbCrLf
else
Response.Write "<img src='img/face/01.gif' border=0 width=75 height=75><input type='hidden' name='uc' value='img/face/01.gif'>" & vbCrLf
end if
Response.Write "</td></tr>" & vbCrLf
else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width='80'> 您的姓名：</td>" & vbCrLf
Response.Write "<td width='300'><input type=""text"" name=""name"" maxlength=""7"" size=""20"" class='input' autocomplete=""off""> <font color=red>*</font> ≤7个字符或7个汉字</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td> 您的性别：</td>" & vbCrLf
Response.Write "<td><input type=""radio"" name=""SEX"" value=""1"" checked>帅哥 <input type=""radio"" name=""SEX"" value=""2"">美女</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td> 电子邮箱：</td>" & vbCrLf
Response.Write "<td><input type=""text"" name=""email"" maxlength=""30"" size=""20"" class='input'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td> 腾迅 QQ：</td>" & vbCrLf
Response.Write "<td><input type=""text"" name=""qq"" maxlength=""15"" size=""20"" class='input'> 填写你的QQ号码</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td> 个人主页：</td>" & vbCrLf
Response.Write "<td><input type=""text"" name=""web"" maxlength=""40"" size=""20"" class='input'> 网址必须包含http://</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr><td> 选择头像：</td>" & vbCrLf
Response.Write "<td><select name=""uc"" size=""1"" id=""select5"" onChange=""document.all.idface.src=options[selectedIndex].value;""><option value='img/face/01.gif'>女生头像—1</option><option value=""img/face/02.gif"">女生头像—2</option><option value=""img/face/03.gif"">女生头像—3</option><option value=""img/face/04.gif"">女生头像—4</option><option value=""img/face/05.gif"">女生头像—5</option><option value=""img/face/06.gif"">女生头像—6</option><option value=""img/face/07.gif"">女生头像—7</option><option value=""img/face/08.gif"">女生头像—8</option><option value=""img/face/09.gif"" selected>男生头像—1</option><option value=""img/face/10.gif"">男生头像—2</option><option value=""img/face/11.gif"">男生头像—3</option><option value=""img/face/12.gif"">男生头像—4</option><option value=""img/face/13.gif"">男生头像—5</option><option value=""img/face/14.gif"">男生头像—6</option><option value=""img/face/15.gif"">男生头像—7</option><option value=""img/face/16.gif"">男生头像—8</option></select> <img src=""img/face/09.gif"" width=""60"" height=""60"" id=idface></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
end if
Response.Write "<tr>" & vbCrLf
Response.Write "<td> 发表主题：</td>" & vbCrLf
Response.Write "<td><input type=""text"" name=""zt"" maxlength=""10"" size=""40"" class='input' autocomplete=""off""> <font color=red>*</font> ≤10个字符或10个汉字</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr><td> 类型选择：</td>" & vbCrLf
Response.Write "<td><input type=""radio"" name=""title"" value=""1"" checked><font color=#0000FF>留言</font> <input type=""radio"" name=""title"" value=""2""><font color=#FF00FF>建议" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "</font> <input type=""radio"" name=""title"" value=""3""><font color=#FF7F50>报错</font> <input type=""radio"" name=""title"" value=""4""><font color=#228B22>连接</font>" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "<input type=""radio"" name=""title"" value=""5""><font color=#1E90FF>其它</font></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign=""top""> 留言内容： <br><font color=red> *支持UBB</font><br><br> 字数：<br> <input type='text' value='0' id='wordsLen' size='2' style='border-width:0;background:transparent;'><font title='等于或小于255个字！'>≤255</font></td>" & vbCrLf
Response.Write "<td valign=""bottom"">" & vbCrLf
if Commentbook="会员" and UserLogined<>True then
Response.Write "<textarea name=""words"" cols=""65"" rows=""12"" class='input' onkeydown=""bookshowLen(this)"" onkeyup=""bookshowLen(this)"">本留言本开启了会员发表模式，你还没有登陆呢，请先登陆！</textarea>" & vbCrLf
Else
Response.Write "<textarea name=""words"" cols=""65"" rows=""12"" class='input' onkeydown=""bookshowLen(this)"" onkeyup=""bookshowLen(this)""></textarea>" & vbCrLf
end if
Response.Write "</td></tr>" & vbCrLf
if bookpass<>"yes" then
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign=""middle""> 是否隐藏：</td>" & vbCrLf
Response.Write "<td valign=""top"">" & vbCrLf
Response.Write "<input type=""radio"" name=""admin"" value=""0"" checked> 否 <input type=""radio"" name=""admin"" value=""1""> 是 <font color=#009900>*</font> 选择隐藏后，此" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "留言只有管理员可以看到。</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign=""middle""> 认证码：</td>" & vbCrLf
Response.Write "<td valign=""top"">" & vbCrLf
Response.Write "<input name=""VerifyCode"" type=""text"" size=""10"" class='input'> <img src=""inc/lyCode.asp""></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td align=""center"" height=""40"" colspan=""2"">" & vbCrLf
Response.Write "<input type=""hidden"" name=""action_e"" value=""Add_New""> <input type=""submit"" name=""Submit"" value=""提交"" onmouseover=""this.className='boton'""" & vbCrLf
if Commentbook="会员" and UserLogined<>True then
Response.Write "onmouseout=""this.className='botoff'"" class=""botoff"" disabled>" & vbCrLf
Else
Response.Write "onmouseout=""this.className='botoff'"" class=""botoff"">" & vbCrLf
end if
Response.Write "<input type=""reset"" name=""Submit2"" value=""重写"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"">" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</form>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub
'=================================================
'过程名：Edit
'作 用：留言编辑处理表单
'参 数：无
'Web: www.ynsky.com.cn
'=================================================
Sub Edit()
if session("adminlogin")<>sessionvar then
Response.write "<script language = 'javascript'>alert('您还未登陆管理,无法编辑留言!');window.document.location.href='book.asp';</script>"
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Where id="&int(Request.QueryString("id"))
Rs.Open Sql,Conn,1,1
Response.Write "<table width='100%' border='1' align='center' cellspacing='0' cellpadding='5' bordercolor='#f0f0f0' style='border-collapse: collapse'>" & vbCrLf
Response.Write "<form name=""reply"" method=""post"" action=""?"">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write " <TD align=""center"" height='50'>编辑、回复来客留言主题</TD>" & vbCrLf
Response.Write "</tr><tr>" & vbCrLf
Response.Write "<td align=""center"">主题：<input type='text' name='zt' maxlength='12' size='55' value="&Rs("zt")&"></td>" & vbCrLf
Response.Write "</tr><tr>" & vbCrLf
Response.Write " <TD align=""center"">来客、会员留言内容</TD>" & vbCrLf
Response.Write "</tr><tr>" & vbCrLf
Response.Write "<td align=""center""><textarea name=""words"" cols=""60"" rows=""7"">"&Rs("words")&"</textarea></td>" & vbCrLf
Response.Write "</tr><tr>" & vbCrLf
Response.Write " <TD align=""center"">管理员回复内容</TD></tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td align=""center""><textarea name=""reply"" cols=""60"" rows=""6"">"&Rs("reply")&"</textarea></td>" & vbCrLf
Response.Write "</tr><tr>" & vbCrLf
Response.Write "<td align=""center"" height='28'>是否隐藏：" & vbCrLf
Response.Write "<input type=""radio"" name=""admin"" value=""0"""
If Rs("admin")="0" Then
Response.Write "checked" & vbCrLf
end if
Response.Write "> 否" & vbCrLf
Response.Write "<input type=""radio"" name=""admin"" value=""1"""
If Rs("admin")="1" Then
Response.Write "checked" & vbCrLf
end if
Response.Write "> 是"
Response.Write " <input type=""radio"" name=""admin"" value=""2"""
If Rs("admin")="2" Then
Response.Write "checked" & vbCrLf
end if
Response.Write "> 待审核"
Response.Write " <font color=#009900>*</font> 选择隐藏后，此留言只有管理员可以看到。</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr align=""center""><td colspan=""2""><input type=""hidden"" name=""action_e"" value=""Edit"">" & vbCrLf
Response.Write "<input type=""hidden"" name=""id"" value="""&Request.QueryString("id")&""">" & vbCrLf
Response.Write "<input type=""submit"" name=""Submit"" value=""确定"" id=""Submit"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""></td></tr>" & vbCrLf
Response.Write "</form>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub
'=================================================
'过程名：View_Words
'作 用：显示带分页功能留言列表
'参 数：无
'Web: www.ynsky.com.cn
'=================================================
Sub View_Words()
Dim CurPage,Url_Add
Url_Add="?"
If Request.QueryString("Page")<>"" Then
Curpage=Request.QueryString("Page")
If IsInteger(Curpage)=False Then Curpage=1
Else
Curpage=1
End If
if request("keyword")<>"" then
if instr(request("keyword"),"'")>0 then
Response.Write "<script language=javascript>alert('搜索参数非法。');javascript:history.back();</script>"
response.end
end if
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
if request("keyword")<>"" and (request("select")="words" or request("select")="name" or request("select")="reply") then
sql="select * from words where "&request("select")&" like '%"&Jencode(checkspace(request("keyword")))&"%'order by id DESC"
Url_Add=Url_Add&"select="&request("select")&"&keyword="&Server.URLEncode(request("keyword"))&"&"
else
Sql="Select * From words Order By id Desc"
end if
Rs.Open Sql,Conn,1,1
Response.Write "<table width='100%' border='1' align='center' cellspacing='0' cellpadding='0' bordercolor='#F0F0F0' style='border-collapse: collapse'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=30 colSpan=2><FONT color=#b70000> <B>·</B></FONT>"
if request("keyword")<>"" then
Response.Write "共搜索到"
else
Response.Write "当前共有"
end if
Response.Write "<span>"&rs.recordcount&"</span>个留言</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
if not rs.eof then
Dim Hx_Nums,MultiPages,i
Hxperpage=8
Rs.PageSize=Hxperpage
Rs.AbsolutePage=CurPage
Hx_Nums=Rs.RecordCount
MultiPages="<tr><td colspan=""3"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
NO=Hx_Nums-i-(Hxperpage*Curpage)+Hxperpage
Response.Write "<tr>"
Response.Write "<td rowspan=2 width=90 valign=top align=center><a href='?select=name&keyword="&Rs("name")&"' title='查找["&Rs("name")&"]发表的所有留言'><font color=#ff6600><b>"&Rs("name")&"</b></font></a><br>"
If Rs("uc")<>"" Then
Response.Write "<img align=absBottom border=0 src='"&Rs("uc")&"' width='75' height='75'>"
elseif Rs("sex")="1" then
Response.Write "<img src=img/face/09.gif>"
elseif Rs("sex")="2" then
Response.Write "<img src=img/face/01.gif>"
End If
Response.Write "</td>"
Response.Write "<td height=22>"
Response.Write "<table border=0 cellpadding=3 cellspacing=0 width='100%'><tbody>"
Response.Write "<tr>"
Response.Write "<td width='80%'>第"&NO&"楼·<b>"&Rs("zt")&"</b> "&Rs("date")&"</td>"
Response.Write "<td align=right width='20%'>"
If Rs("city")<>"" Then
Response.Write "<img align=absBottom title='"&Rs("name")&"来自"&Rs("city")&"' border=0 height=11 src='img/city.gif' width=11> "
End If
If Rs("email")<>"" Then
Response.Write "<a href='mailto:"&Rs("email")&"'><img align=absBottom border=0 height=11 src='img/mail.gif' width=11 title='给"&Rs("name")&"写信'></a> "
End If
If Rs("qq")<>"" Then
Response.Write "<img align=absBottom title='"&Rs("name")&"的QQ号码是"&Rs("qq")&"' border=0 height=11 src='img/qq.gif' width=11> "
End If
If Rs("web")<>"" Then
Response.Write "<a href='"&Rs("web")&"' target='_blank'><img align=absBottom border=0 height=11 src='img/web.gif' width=11 title='去"&Rs("name")&"的主页看看'></a> "
End If
Response.Write "<img align=absBottom title='"&Rs("name")&"的IP地址为"&Rs("ip")&"' height=11 src='img/ip.gif' width=11> "
If session("adminlogin")=sessionvar Then
Response.Write "<a href='?action=Delete&id="&Rs("id")&"'><img align=absBottom border=0 title='【删除】' height=11 src='img/Delete.gif' width=11></a> <a href='?action=Edit&id="&Rs("id")&"'><img align=absBottom border=0 title='【编辑回复】' height=11 src='img/edit.gif' width=11></a> "
End if
Response.Write "</td></tr></tbody></table>"
Response.Write "</td></tr>"
Response.Write "<tr><td height=80 valign=top>"
Response.Write "<table border=0 cellpadding=0 cellspacing=2 width='100%' height='100%' style='table-layout:fixed; word-break:break-all; line-height:150%'><tbody>"
Response.Write "<tr><td><img src='img/dot6.gif' width='16' height='15'>"
If Rs("admin")="0" Then
Response.Write "["
if Rs("title")="1" then
Response.Write "<font color=#0000FF>留言</font>"
elseif Rs("title")="2" then
Response.Write "<font color=#FF00FF>建议</font>"
elseif Rs("title")="3" then
Response.Write "<font color=#FF7F50>报错</font>"
elseif Rs("title")="4" then
Response.Write "<font color=#228B22>连接</font>"
elseif Rs("title")="5" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -