?? lyb.asp
字號:
else
lou=gbcount-((Request.QueryString("page")-1)*n)
end if
do while not rs.eof
reply=""
words=""
email=""
qq=""
web=""
come=""
if rs("email")="" then
email=rs("name") & " 沒有留下電子郵件"
else
email=rs("name") & " 的電子郵件是: "&rs("email")
end if
if rs("web")="" or rs("web")="http://" then
web=rs("name") & " 暫時沒有主頁"
else
web=rs("name") & " 的主頁是: "&rs("web")
end if
if rs("qq")="" or len(rs("qq"))<4 then
qq=rs("name") & " 沒有留下QQ號"
else
qq=rs("name") & " 的QQ號是: "&rs("qq")
end if
words=rs("words")
if rs("reply")<>"" then reply=rs("reply")
%>
<TABLE width=700 border=0 align="center"
cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD width="2%"><IMG src="<%=imdeximg%>T_left.gif" border=0></TD>
<TD width="96%" background=<%=imdeximg%>Tt_bg.gif></TD>
<TD width="2%"><IMG src="<%=imdeximg%>T_right.gif"
border=0></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=700 height=51 border=1 align=center cellPadding=3 cellSpacing=0 bordercolor="#85ACE0" style="border-collapse:collapse" >
<TBODY>
<TR >
<TD colSpan=2 height=25><table width="686" border="0" class="unnamed1">
<tr>
<td width="28%" height="21">留言者:<b><%=rs("name")%></b></td>
<td width="60%"> <div align="right">發表于:<%=year(Rs("date"))%>年<%=month(Rs("date"))%>月<%=day(Rs("date"))%>日
<%
If Rs("sex")=1 Then
Response.Write "<img src="&imdeximg&"Male.gif alt='你點到帥哥了' width='16' height='16'>"
Else
Response.Write "<img src="&imdeximg&"FeMale.gif alt='你點到美女了' width='16' height='16'>"
End If
%>
<a href="<%=rs("web")%>" target="_blank"><img src="<%=imdeximg%>homepage.gif" alt="<%=web%>" width=16 height=16 border="0"></a>
<a href="mailto:<%=rs("email")%>"><img src="<%=imdeximg%>email.gif" alt="<%=email%>" width="16" height="16" border="0"></a>
<img src="<%=imdeximg%>oicq.gif" alt="<%=qq%>" width="16" height="16" border="0">
<img src="<%=imdeximg%>come.gif" alt="<%=Rs("name")%>來自:<%=Rs("come")%>" width="16" height="16">
<% If Session("Admin") = "Login" Then %>
<img src="<%=imdeximg%>ip.gif" align=absMiddle><%=Rs("ip")%>
<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="12%"><div align="right">第 <font color="#ff0000"><%=lou %></font> 條留言</div></td>
</tr>
</table> </TD>
</TR>
<TR>
<TD width="100" height="21" align=middle valign="top"><table width="100" border="0" align="center" >
<tr>
<td width="94">
<%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 %></td>
</tr>
</table></TD>
<TD width="582" height="21" valign="top" class=unnamed2 style="word-break:break-all">
<table width="582" border="0" style="TABLE-LAYOUT: fixed" class=unnamed2>
<tr>
<td width="576" style="word-break:break-all">
<% if webyn=1 and rs("view")=1 then '##########################################%>
<%=Ubb(unHtml(words))%>
<% if reply<>"" then%>
<hr size="1"> <span class="style1">斑竹回復:</span><br> <%=Ubb(unHtml(reply))%>
<%end if %>
<%end if %>
<% if webyn<>1 then '##################################################%>
<%=Ubb(unHtml(words))%>
<% if reply<>"" then%>
<hr size="1"> <span class="style1">斑竹回復:</span><br> <%=Ubb(unHtml(reply))%>
<%end if %>
<%end if %>
<% if webyn=1 and rs("view")=0 then '#########################################%>
留言需要經過審批才能查看
<%end if %>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=700 border=0 align="center"
cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE:collapse">
<TBODY>
<TR>
<TD width="1%"><IMG src="<%=imdeximg%>T_bottomleft.gif" border=0></TD>
<TD width="97%" background=<%=imdeximg%>T_bottombg.gif></TD>
<TD width="2%"><IMG src="<%=imdeximg%>T_bottomright.gif"
border=0></TD>
</TR>
</TBODY>
</TABLE>
<br>
<%
lou=lou-1
rs.movenext
loop
Rs.Close
Set Rs = Nothing
%>
<table width="700" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td height="20" align="right" class="unnamed1">
有<%=gbcount %>條留言 共<%=y %>頁 分頁
<% if page2>1 then %>
<a href="<%=indexfilename%>?page=<%=((page2-1)*x)-(x-1) %>&k=<%=page2-1%>">前<%=x%>頁</a>
<% end if %>
<% For m =((page2)*x)-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>&k=<%=page2%>"><%=m%></a>]
<%
Next
%>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=((page2+1)*x)-(x-1)%>&k=<%=page2+1%>">后<%=x%>頁</a>
<% end if %>
</td>
</tr>
</table>
<% End Sub %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'管理員登陸接口
%>
<% Sub Admin_Login() %>
<br>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="reply" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center"> 管理登陸 </td>
</tr>
<tr>
<td align="right" valign="top" width="105"> 用戶名： </td>
<td width="226"> <input type="text" name="username" class="input1"> </td>
</tr>
<tr>
<td align="right" valign="top" width="105"> 密 碼： </td>
<td width="226"> <input type="password" name="password" class="input1">
<input type="hidden" name="action_e" value="admin"> </td>
</tr>
<tr align="center">
<td colspan="2"> <input type="submit" name="Submit32" value="登陸" class="input1">
</td>
</tr>
<tr align="center">
<td height="49" colspan="2"> </td>
</tr>
</form>
</table>
<br>
<% End Sub%>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%Sub UbbHelp()%>
<div align="left">
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td height="20" colspan="3" align="center">UBB功能幫助</td>
</tr>
<tr>
<td width="110">[img]</td>
<td width="296">這里填寫圖片的絕對地址如 <font color="#FF0000">http://www.jd100.net/aaa.jpg</font></td>
<td width="65">[/img]</td>
</tr>
<tr>
<td width="110" height="20">[url]</td>
<td width="296" height="20">這里填寫連接地址 <font color="#FF0000">http://www.jd100.net/</font></td>
<td width="65" height="20">[/url]</td>
</tr>
<tr>
<td width="110">[swf]</td>
<td width="296">這里填寫SWF文件的地址<font color="#FF0000">http://www.jd100.net/yanshi.swf</font></td>
<td width="65">[/swf]</td>
</tr>
<tr>
<td width="110" height="20">[email]</td>
<td width="296" height="20">這里填寫電子信箱地址<font color="#FF0000">kx1999@21cn.com</font></td>
<td width="65" height="20">[/email]</td>
</tr>
<tr>
<td width="110">[color=<font color="#FF0000">顏色</font>]</td>
<td width="296">這里填寫要著色的<font color="#FF0000">文字</font></td>
<td width="65">[/color]</td>
</tr>
<tr>
<td width="110">[size=<font color="#FF0000">大小</font>]</td>
<td width="296">這里填寫要加大的<font color="#FF0000">文字</font></td>
<td width="65">[/size]</td>
</tr>
<tr>
<td width="110">[font=<font color="#FF0000">字體</font>]</td>
<td width="296">這里填寫要改變字體的<font color="#FF0000">文字</font></td>
<td width="65">[/font]</td>
</tr>
</table>
<%End Sub%>
</div>
<%Sub EditPWD()%>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="editpwd" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center"> <b>修改密碼</b></td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">舊用戶名：</td>
<td width="226" height="38" align="left">
<input type="text" name="oldusername" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">新用戶名：</td>
<td width="226" height="38" align="left">
<input type="text" name="username" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">確認新用戶名：</td>
<td width="226" height="38" align="left">
<input type="text" name="username_c" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38"> 舊 密 碼： </td>
<td width="226" height="38" align="left">
<input type="password" name="oldpwd" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105">新 密 碼： </td>
<td width="226" align="left">
<input type="password" name="newpwd" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">確認新密碼：</td>
<td width="226" align="left" height="38">
<input type="password" name="newpwd_c" class="input1">
<input type="hidden" name="action_e" value="EditPWD">
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" name="EditPWD" value="修改密碼" class="input1">
</td>
</tr>
</form>
</table>
<%End Sub%>
<% Sub Edit() %>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Where id="&Request.QueryString("id")
Rs.Open Sql,Conn,1,1
view2=""
if rs("view")=1 then
view2="checked"
end if
%>
<table width="600" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="reply" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center"> 編輯留言內容及回復</td>
</tr>
<tr>
<td width="113" align="right" valign="top"> 留言內容： </td>
<td width="468">
<textarea name="words" cols="60" rows="8" class="input1"><%=Rs("words")%></textarea>
</td>
</tr>
<tr align="center">
<td align="right">回復：</td>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -