📄 guestbook.asp
字号:
<td height="20"><input name="title" type="text" class="write" id="title" size="20" maxLength=10>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="right" valign="top"> </td>
<td height="20" colspan="2"> <% call ubb_jd100() %> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="top"> 留言内容： </td>
<td colspan="2"> <textarea name="words" cols="50" rows="8" class="input1" id="words"
onKeyDown=gbcount(this.form.words,this.form.total,this.form.used,this.form.remain);
onKeyUp=gbcount(this.form.words,this.form.total,this.form.used,this.form.remain);></textarea>
* </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="top"> </td>
<td colspan="2">最多字数： <INPUT disabled maxLength=4 name=total size=3 value=<%=txt%>>
已用字数：
<INPUT disabled maxLength=4 name=used size=3 value=0>
剩余字数：
<INPUT disabled maxLength=4 name=remain size=3 value=<%=txt%>></td>
</tr>
<tr align="center" bgcolor="#EAEAEA">
<td height="23" colspan="3"> <input type="hidden" name="action_e" value="Add_New">
<input type="submit" name="Submit" value=" 提 交 " class="input1"> <input type="reset" name="Submit2" value=" 重 写 " class="input1">
</td>
</tr>
</form>
</table>
<br>
<% End Sub %>
<% Sub Main_Menu() %>
<table width="530" height="30" border="0" align="center" class="unnamed1">
<tr>
<td height="26">
<div align="right"><a href="guestbook.asp">查看留言</a> <a href="<%=indexfilename%>?action=Add_New">我要留言</a>
<a href="<%=indexfilename%>?action=UbbHelp">UBB帮助</a>
<% If Session("Admin")="Login" Then %>
<a href="<%=indexfilename%>?action=Exit">退出管理</a>
<% Else %>
<a href="<%=indexfilename%>?action=Admin_Login">管理留言</a>
<% End If %>
<% If Session("Admin")="Login" Then %>
<a href="<%=indexfilename%>?action=Edit_web">基本设置</a> <a href="<%=indexfilename%>?action=EditPWD">修改密码</a>
<% End If %>
</div></td>
</tr>
</table>
<% End Sub
'''''''''''''''''''''''
'查看留言
Sub View_Words()
dim gbcount,y,j,k
set rs = conn.execute("select COUNT(*) as gbcount From words")
gbcount=rs("gbcount")
rs.close
if gbcount/n = int(gbcount/n) then '计算出分页数
y=int(gbcount/n)
else
y=int(gbcount/n)+1
end if
page2= int(page/x)
if page/x>page2 then page2=page2+1
k=page2*x
if k>y then k=y
'打开留言字段'
if page=1 then
sql="select top "&n&" id,name,sex,head,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
else
sql="select id,name,sex,head,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
end if
if Page >100 then
rs.Open sql,Conn,1
else
Set Rs=Conn.Execute(sql)
end if
if Page>1 then RS.Move n*page-n
%>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="100%" height="20" >有<%=gbcount %>条留言 <%=page %>/<%=y %>页 分页 <a href="?page=1"><<</a>
<% if page2>1 then %>
<a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<%
Next
%>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
<a href="?page=<%=y %>">>></a>
</td>
</tr>
<% if len(webtitle)>2 then %>
<tr>
<td height="18" align="right" class="unnamed1">
<marquee onMouseOut=start(); onMouseOver=stop(); scrollamount=3>
<%=webtitle %>
</marquee></td>
</tr>
<% end if %>
</table>
<% if rs.bof and rs.eof then Response.Write "当前没有留言记录" %>
<%
dim lou,words,reply,email,qq,web,come
if Request.QueryString("page")<2 then
lou=gbcount
else
lou=gbcount-((Request.QueryString("page")-1)*n)
end if
i=0
do while not rs.eof and i<n
i=i+1
reply=""
words=""
words=rs("words")
reply=rs("reply")
%>
<TABLE width=560 height=51 border=0 align=center cellPadding=0 cellSpacing=1 style="border-collapse:collapse" >
<TBODY>
<TR >
<TD colSpan=2 height=25><table width="100%" height="31" border="0" background="Img/homedhbg.gif" class="unnamed1">
<tr>
<td height="21"> 主题:<b><%=rs("title")%></b></td>
<td>
<div align="right">
<% if len(trim(rs("web")))>8 then %>
<a href="<%=rs("web")%>" target="_blank"><img src="<%=imdeximg%>homepage.gif" alt="我的主页是:<%=rs("web")%>" width=16 height=16 border=搀瑥硥?敲汰?ˉ??"0"></a>
<% end if %>
<% if len(trim(rs("email")))>6 then %>
<a href="mailto:<%=rs("email")%>"><img src="<%=imdeximg%>email.gif" alt="我的EMAIL是:<%=rs("email")%>" width="16" height="16" border="0"></a>
<% end if %>
<% if len(trim(rs("qq")))>3 then %>
<img src="<%=imdeximg%>oicq.gif" alt="我的QQ号:<%=Rs("qq")%>" width="16" height="16" border="0">
<% end if %>
<% if len(trim(Rs("come")))>1 then %>
<img src="<%=imdeximg%>come.gif" alt="我来自:<%=Rs("come")%>" width="16" height="16">
<% end if %>
<% If Session("Admin") = "Login" Then %>
<img src="<%=imdeximg%>ip.gif" alt="IP:<%=Rs("ip")%>" width="16" height="16" align=absMiddle><font color="#666666"><a href="<%=indexfilename%>?action=Edit&id=<%=Rs("id")%>">
<img src="<%=imdeximg%>reply.gif" alt="编辑回复" width="16" height="16" border="0"></a>
<a href="<%=indexfilename%>?action=Delete&id=<%=Rs("id")%>" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')">
<img src="<%=imdeximg%>del.gif" alt="删除留言" width="15" height="15" border="0"></a></font>
<% end if %>
</div></td>
<td width="14%"> 第 <font color="#ff0000"><%=lou %></font> 条留言</td>
</tr>
</table> </TD>
</TR>
<TR>
<TD width="111" height="21" align=middle valign="top">
<table width="100%" border="0" align="center">
<tr>
<td width="118"align="center">
<%if rs("head")="" then %>
<%if rs("sex")=1 then %>
<img src="<%=imdeximg%>101.gif">
<% else %>
<img src="<%=imdeximg%>001.gif">
<% end if %>
<% else %>
<img src="<%=imdeximg & rs("sex") & rs("head") %>.gif">
<% end if %>
<br>
留言：<%=rs("name")%>
</td>
</tr>
</table></TD>
<TD width="446" height="21" style="word-break:break-all">
<table width="96%" height="132" border="0" align="center">
<tr>
<td width="100%" height="70" style="word-break:break-all">
<br>
<% if webyn=1 and rs("view")=1 then %>
<%=Ubb(unHtml(words))%>
<% if len(trim(reply))>1 then%>
<hr size="1">
<span class="style1">斑竹回复:</span><br>
<font color="#990000"> <%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn<>1 then %>
<%=Ubb(unHtml(words))%>
<% if len(trim(reply))>1 then%>
<hr size="1">
<span class="style1">斑竹回复:</span><br>
<font color="#990000"><%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn=1 and rs("view")=0 then%>
留言需要经过审批才能查看
<%end if %>
</td>
</tr>
<tr>
<td height="22" align="right" style="word-break:break-all">发表于:<%=year(Rs("date"))%>年<%=month(Rs("date"))%>月<%=day(Rs("date"))%>日</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<%
lou=lou-1
rs.movenext
loop
Rs.Close
Set Rs = Nothing
%>
<table width="530" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td width="100%" height="20" align="right" class="unnamed1"> 有<%=gbcount %>条留言 <%=page %>/<%=y %>页 分页 <a href="?page=1"><<</a>
<% if page2>1 then %>
<a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<%
Next
%>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
<a href="?page=<%=y %>">>></a>
</td>
</tr>
</table>
<% End Sub %>
<%
'''''''''管理员登陆接口
%>
<% Sub Admin_Login()
dim num1
dim rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("jd100_rn")=rndnum
%>
<br>
<table width="530" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<form name="reply" method="post" action="<%=indexfilename%>">
<tr bgcolor="#EAEAEA">
<td height="22" colspan="2" align="center"> 管理登陆 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="25%">
<div align="right">用户名： </div></td>
<td width="75%">
<input name="username" type="text" class="login" maxlength="25">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="25%">
<div align="right">密 码： </div></td>
<td width="75%">
<input name="password" type="password" class="login" maxlength="25">
<input type="hidden" name="action_e" value="admin" class="login"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="right">输入验证码：</div></td>
<td>
<table width="208" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="90"><input name="jd100rz" type="text" class="login" maxlength="4"></td>
<td width="108"><div align="center"><%=session("jd100_rn")%></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="23" colspan="2" align="center">
<input type="submit" name="Submit" value="登陆">
</td>
</tr>
</form>
</table>
<br>
<% End Sub
'UBB功能帮助----------------
Sub UbbHelp()%>
<table width="530" border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#336699" style="border-collapse:collapse">
<tr>
<td height="20" colspan="3" align="center">UBB功能帮助</td>
</tr>
<tr>
<td width="72"><div align="right">[img]</div></td>
<td width="340">这里填写图片的绝对地址如 <font color="#FF0000">http://www.jd100.net/aaa.jpg</font></td>
<td width="73">[/img]</td>
</tr>
<tr>
<td width="72" height="20"><div align="right">[url]</div></td>
<td width="340" height="20">这里填写连接地址 <font color="#FF0000">http://www.jd100.net/</font></td>
<td wi搀瑥硥?敲汰?ˉ??dth="73" height="20">[/url]</td>
</tr>
<tr>
<td width="72"><div align="right">[swf]</div></td>
<td width="340">这里填写SWF文件的地址<font color="#FF0000">http://www.jd100.net/yanshi.swf</font></td>
<td width="73">[/swf]</td>
</tr>
<tr>
<td width="72" height="20"><div align="right">[email]</div></td>
<td width="340" height="20">这里填写电子信箱地址<font color="#FF0000">kx1999@21cn.com</font></td>
<td width="73" height="20">[/email]</td>
</tr>
<tr>
<td width="72"><div align="right">[color=<font color="#FF0000">颜色</font>]</div></td>
<td width="340">这里填写要着色的<font color="#FF0000">文字</font></td>
<td width="73">[/color]</td>
</tr>
<tr>
<td width="72"><div align="right">[size=<font color="#FF0000">大小</font>]</div></td>
<td width="340">这里填写要加大的<font color="#FF0000">文字</font></td>
<td width="73">[/size]</td>
</tr>
<tr>
<td width="72"><div align="right">[font=<font color="#FF0000">字体</font>]</div></td>
<td width="340">这里填写要改变字体的<font color="#FF0000">文字</font></td>
<td width="73">[/font]</td>
</tr>
</table>
<%End Sub%>
<%Sub EditPWD()%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -