?? index.asp
字號:
<!--#include file="config.asp"-->
<!--#include file="ubb.asp"-->
<!--#include file="pub.asp"-->
<!--#include file="header.asp"-->
<%
snr=Request("snr")
stype=Request("stype")
IF Request("del")<>"" and Session("PRO"&LogPWD&"ADMIN")=True Then
Sql = "Delete From gb Where id="&Request("del")
Conn.Execute(Sql)
End IF
%>
<%
GetCookie
if notice<>"" then BzNotice
SqlType
IF Not Rs.Eof Then
IF Request("s")="" Then
ShowNum=Showlynum
Else
ShowNum=Request("s")
End IF
rs.pagesize=Showlynum
maxpage=rs.pagecount
totally=rs.recordcount
requestpage=clng(request("p"))
if requestpage="" or requestpage<1 then
requestpage=1
end if
if requestpage>maxpage then
requestpage=maxpage
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.bof
if ubbcode="1" then
cont=ubb(rs("content"))
else
cont=rs("content")
end if
LyType=Rs("type")
LyType1=left(LyType,2)
LyType2=Right(LyType,2)
LyTitle=" "&Rs("title")
if Session("PRO"&LogPWD&"ADMIN")<>True then
if LyType2="se" then
if UserName<>rs("name") or UserPwd<>rs("psw") then
LyTitle=" [ 對外保密 ]"
else
LyTitle=" "&Rs("title")
end if
end if
if LyType1="wa" then
LyTitle=" ◇◇◇◇"
end if
end if
dim j
if requestpage=1 then
j=i
else
j=((requestpage-1)*Showlynum+i)
end if
IF Session("PRO"&LogPWD&"ADMIN")<>True Then
if LyType2="se" and (UserName<>rs("name") or UserPwd<>rs("psw")) then
cont1="< 此留言是給站長看的悄悄話 >"
elseif LyType1="wa" then
cont1="< 站長一定認真閱讀您的留言 >"
elseif LyType="no" then
cont1="< 此留言-站長不能認可 >"
else
cont1=cont
end if
ELSE
if LyType2="se" then
cont1="<font color=#ff6666>[ 悄悄話 ]</font><BR>"&cont
elseif LyType1="wa" then
cont1="<font color=#ff6666>[ 等待審核的留言 ]</font><BR>"&cont
elseif LyType="no" then
cont1="<font color=#ff6666>[ 留言被禁止顯示 ]</font><BR>"&cont
else
cont1=cont
end if
end if%>
<%
Response.Cookies("ppp")("ccc")=""%>
<div align="center">
<table class="table0" cellSpacing="1" cellPadding="0" width="600" border="0">
<tr>
<%if request.cookies("UserInfo2tp88")("sjm88")="" then%>
<td width="600" colspan="2" class="font" height="18"> <%=j%>. <%=rs("date")%> [ <%=rs("ip")%> ]</td>
</tr>
<%end if%>
<td width="90" rowspan="3" align="center" onmouseover="javascript:this.bgColor='#e8ffff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>
<P align=center>
<font style="FONT-SIZE: 9pt; FILTER: shadow(color=#cccccc); COLOR: #ff0088; HEIGHT: 1px"><%=Rs("name")%></font><br><br>
<font style="FONT-SIZE: 9pt; FILTER: shadow(color=#cccccc); COLOR: #0060f0; HEIGHT: 1px">來自<%=rs("from")%></font>
</P></td>
<td width="510" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#fff8ff'" bgColor=#fff8ff>
<table border="0" cellpadding="0" width="100%">
<tr>
<td>
<font color=#009900>話題:</font><%=LyTitle%>
<%if LyType1="wa" Then%>
<%if LyType2="se" then%>
<font color=#ff0088>|</font> <font color=#009900>不公開的留言</font> <font color=#ff0088>|</font>
<% else %>
<font color=#ff0088>|</font> <font color=#009900>留言等待處理</font> <font color=#ff0088>|</font>
<%end if%>
<% else %>
<%end if%>
<%if rs("top")="9" then%><font color=#ee0088>※</font><%end if%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="510" onmouseover="javascript:this.bgColor='#e8ffff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>
<table border="0" cellpadding="0" width="100%" style="table-layout:fixed;word-break:break-all">
<tr>
<td width="100%">
<%=cont1%>
</td></tr>
</table>
<% if rs("reply")<>"" then %>
<%
if Session("PRO"&LogPWD&"ADMIN")<>True and LyType2="se" then
if UserName<>rs("name") or UserPwd<>rs("psw") then
%>
<table border="0" cellpadding="0" width="100%" style="table-layout:fixed;word-break:break-all">
<tr>
<td width="33"><font color=#009900>回復:</font></td>
<td>
<font color=#ff0088>→</font> <a href="user_login.asp?url=index.asp?p=<%=requestpage%>">登陸查看</a>
</td>
</tr>
</table>
<%else%>
<table border="0" cellpadding="0" width="100%" style="table-layout:fixed;word-break:break-all">
<tr>
<td width="33"><font color=#009900>回復:</font></td>
<td>
<font color=#000000><%=ubb(Rs("reply"))%></font> [ <a href="user_logout.asp" target="_top">知道了，我要退出</a> ]
</td>
</tr>
</table>
<%
end if
else%>
<table border="0" cellpadding="0" width="100%" style="table-layout:fixed;word-break:break-all">
<tr>
<td width="33"><font color=#009900>回復:</font></td>
<td>
<font color=#000000><%=ubb(Rs("reply"))%></font>
</td>
</tr>
</table>
<%
end if
end if%>
</td>
</tr>
<tr>
<td width="510" height="19" align="right" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#fff8ff'" bgColor=#fff8ff>
<%if request.cookies("UserInfo2tp88")("sjm88")="" then%>
<%if rs("oicq")<>"" then%>
<img border=0 src="images/qq.gif">
OICQ:<%=rs("oicq")%> 
<%else%>
<%end if%>
<%if rs("site")<>"" then%>
<img border=0 src="images/index.gif">
<a href='<%=rs("site")%>' target="_blank" title="<%=rs("site")%>">主頁</a>
<%else%>
<%end if%>
<img border=0 src="images/post.gif">
<%if rs("mail")="test@system.net" then%>
<a title="沒有信箱">信箱</a>
<%else%>
<a href='mailto:<%=rs("mail")%>' title="<%=rs("mail")%>">信箱</a>
<%end if%>
<%else%>
<%if rs("oicq")<>"" then%>
OICQ:<%=rs("oicq")%> 
<%else%>
<%end if%>
<%if rs("site")<>"" then%>
<a href='<%=rs("site")%>' target="_blank" title="<%=rs("site")%>">主頁</a>
<%else%>
<%end if%>
<%if rs("mail")="test@system.net" then%>
<%else%>
<a href='mailto:<%=rs("mail")%>' title="<%=rs("mail")%>">信箱</a>
<%end if%>
<a style="color: #ff0088" title="<%=rs("date")%> [ <%=rs("ip")%> ]">>>></a>
<%end if%>
<%IF Session("PRO"&LogPWD&"ADMIN")=True Then%>
→ <A href='edit.asp?edit=ture&id=<%=rs("id")%>'><font color=#c00088>管理</font></A> <A href='index.asp?del=<%=Rs("id")%>'><font color=#c00088>刪除</font></A>
<%End IF%>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<table cellPadding="0" width="580" border="0">
<tr>
<td width="580" height="16">
</td>
</tr>
</table>
</div>
<%
Rs.MoveNext
if rs.eof then exit for
next
else
response.write "<center><font color=#FF0088>沒有找到任何記錄</font><br><br>"
End IF
Rs.Close
Set Rs=Nothing
%>
<div align="center">
<center>
<TR width="600">
<TD >
<P align=center >共有留言<font color=#ff0088> <%=totally%> </font>條，共<font color=#ff0088> <%=maxpage%> </font>頁 [
<%
PageJ
%>
]</TD></TR>
<%
bottom
Function BzNotice
%>
<TR>
<TD>
<p align="center">
<table cellSpacing="1" cellPadding="0" width="600" border="0" align="center">
<tr>
<td width="600"><marquee onMouseOut=start(); onMouseOver=stop(); scrollamount=2><%=ubb(notice)%></marquee></td>
</tr>
</table>
<BR>
<%END Function
Function PageJ
ii=requestpage-4
iii=requestpage+4
if ii < 1 then
ii=1
end if
if iii > maxpage then
iii=maxpage
end if
if requestpage > 5 then
if Request("search")="" then
Response.Write "<a href=index.asp?p=1>1</a> ... "
else
Response.Write "<a href=index.asp?p=1&snr="&snr&"&stype="&stype&"&search=ture>1</a> ... "
end if
end if
for ai=ii to iii
if ai<>requestpage then
if Request("search")="" then
Response.Write "<a href=index.asp?p="&ai&">"&ai&"</a> "
else
Response.Write "<a href=index.asp?p="&ai&"&snr="&snr&"&stype="&stype&"&search=ture>"&ai&"</a> "
end if
else
Response.Write "<font color=#FF6633>"&ai&"</font> "
end if
Next
if maxpage > requestpage+4 then
if Request("search")="" then
Response.Write "...<a href=index.asp?p="&maxpage&">"&maxpage&"</a> "
else
Response.Write "...<a href=index.asp?p="&maxpage&"&snr="&snr&"&stype="&stype&"&search=ture>"&maxpage&"</a> "
end if
end if
END Function
Function SqlType
if Request("search")="" then
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gb Order BY top desc, id DESC "
Rs.Open Sql,conn,1,1
else
snr=Request("snr")
stype=Request("stype")
if snr="" then
if Request("search")="myliuyan" then
response.write "<script language='javascript'>"
response.write "alert('對不起，你沒有留言或者Cookies過期');"
response.write "history.go(-1);"
response.write "</script>"
response.end
else
response.write "<script language='javascript'>"
response.write "alert('你沒有輸入任何搜索內容');"
response.write "history.go(-1);"
response.write "</script>"
response.end
end if
end if
if stype<>"" then
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gb where "&stype&" like '%" &snr& "%' Order BY top desc, id DESC "
Rs.Open Sql,conn,1,1
else
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gb where name like '%" &snr& "%' or content like '%" &snr& "%' or title like '%" &snr& "%' Order BY top desc, id DESC "
Rs.Open Sql,conn,1,1
end if
end if
End Function
%>
</table></center>
</div>
<%if request.cookies("UserInfo2tp88")("sjm88")="" and request.cookies("UserInfo2tp")("sjm")=""then%>
<SCRIPT src="wy.js"></SCRIPT>
<%else%>
<%if request.cookies("UserInfo2tp88")("sjm88")<>"" and request.cookies("UserInfo2tp")("sjm")=""then%>
<SCRIPT src="wy2.js"></SCRIPT>
<%else%>
<%if request.cookies("UserInfo2tp88")("sjm88")="" and request.cookies("UserInfo2tp")("sjm")<>""then%>
<SCRIPT src="wy3.js"></SCRIPT>
<%else%>
<%if request.cookies("UserInfo2tp88")("sjm88")<>"" and request.cookies("UserInfo2tp")("sjm")<>""then%>
<SCRIPT src="wy4.js"></SCRIPT>
<%end if%><%end if%><%end if%>
<%end if%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -