📄 welcomegbscview.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ codepage ="936" %>
<%On Error Resume Next
Response.Expires=0
nickname=Session("hxf_u_nickname")
if nickname="" then Response.Redirect "error.asp?id=210"
keyword=Trim(Request.QueryString("keyword"))
fw=Request.QueryString("fw")
page=Request.QueryString("page")
if keyword="" then Response.Redirect "error.asp?id=240"
if fw="" then fw=0
if fw<0 then fw=0
if fw>6 then fw=6
if page="" then page=1
if Not(IsNumeric(page)) then page=1
if page<1 then page=1
page=int(page)
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
Select Case fw
 Case 0
  sql="SELECT * FROM gbook WHERE (mm='0' or towho='" & nickname & "' or fromwho='" & nickname & "') and (towho LIKE '%" & keyword & "%' or fromwho LIKE '%" & keyword & "%' or title LIKE '%" & keyword & "%' or intro LIKE '%" & keyword & "%') ORDER BY writetime DESC"
 Case 1
  sql="SELECT * FROM gbook WHERE (mm='0' or towho='" & nickname & "' or fromwho='" & nickname & "') and (writetime LIKE '%" & keyword & "%') ORDER BY writetime DESC"
 Case 2
  sql="SELECT * FROM gbook WHERE (mm='0' or towho='" & nickname & "' or fromwho='" & nickname & "') and (towho LIKE '%" & keyword & "%') ORDER BY writetime DESC"
 Case 3
  sql="SELECT * FROM gbook WHERE (mm='0' or towho='" & nickname & "' or fromwho='" & nickname & "') and (fromwho LIKE '%" & keyword & "%') ORDER BY writetime DESC"
 Case 4
  sql="SELECT * FROM gbook WHERE (mm='0' or towho='" & nickname & "' or fromwho='" & nickname & "') and (address LIKE '%" & keyword & "%') ORDER BY writetime DESC"
 Case 5
  sql="SELECT * FROM gbook WHERE (mm='0' or towho='" & nickname & "' or fromwho='" & nickname & "') and (email LIKE '%" & keyword & "%') ORDER BY writetime DESC"
 Case 6
  sql="SELECT * FROM gbook WHERE (mm='0' or towho='" & nickname & "' or fromwho='" & nickname & "') and (homename LIKE '%" & keyword & "%' or homeurl LIKE '%" & keyword & "%') ORDER BY writetime DESC"
End Select
rs.open sql,conn,1,1
rs.PageSize=10
totalrec=rs.RecordCount
if totalrec=0 then
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing
 Response.Redirect "error.asp?id=200"
end if
totalpage=rs.PageCount
if page>totalpage then page=totalpage
rs.AbsolutePage=page
rs.CacheSize=rs.PageSize
i=0
dim showwritetime(),showmm(),showtowho(),showfromwho(),showtitle(),showintro(),showhideip(),showip(),showaddress(),showemail(),showhomename(),showhomeurl()
do while (Not rs.Eof) and (i<rs.PageSize)
 i=i+1
 Redim Preserve showwritetime(i),showmm(i),showtowho(i),showfromwho(i),showtitle(i),showintro(i),showhideip(i),showip(i),showaddress(i),showemail(i),showhomename(i),showhomeurl(i)
 showwritetime(i)=rs("writetime")
 showmm(i)=rs("mm")
 showtowho(i)=rs("towho")
 showfromwho(i)=rs("fromwho")
 showtitle(i)=rs("title")
 showintro(i)=rs("intro")
 showhideip(i)=rs("hideip")
 showip(i)=rs("ip")
 showaddress(i)=rs("address")
 showemail(i)=rs("email")
 showhomename(i)=rs("homename")
 showhomeurl(i)=rs("homeurl")
 rs.MoveNext
Loop
rs.close
conn.close
set rs=nothing
set conn=nothing%><html>
<head>
<title>留言簿</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
a{color:blue;text-decoration:none}
a:hover{color:red;text-decoration:none}
a:active{text-decoration:none}
a:visited{text-decoration:none}
td{font-size:9pt}
body{font-size:9pt}
.l1{color:3366FF;line-height:170%}
</style>
<script Language=JavaScript>
function gop(){url="welcomegbscview.asp?keyword="+document.forms[0].keyword.value+"&fw="+document.forms[0].fw.value+"&page="+document.forms[0].page.value;this.location.href=url;}
</script>
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="#DCD8D0" leftmargin="5" topmargin="5">
<a name="begin"></a>
<div align=center>
  <table width="477" border="0" cellspacing="0">
    <form method="post" action="javascript:gop()">
<tr> 

          <table border="0" width="88%" cellspacing="0">
            <tr> 
              <td width="35%" height="26">共 <font color=red><%=totalrec%></font> 
                条留言　每页10条　共<font color=red><%=totalpage%></font>页</td>
              <td align="right" width="12%" height="26"> 
                <input type="text" name="page" size="2" maxlength="3" value="<%=page%>">
<input type="submit" name="Submit" value="Go">
<input type="hidden" name="keyword" value="<%=keyword%>">
<input type="hidden" name="fw" value="<%=fw%>">
<td align="right" width="32%" height="26"> <%if page-1>0 then%><a href="welcomegbscview.asp?keyword=<%=server.URLEncode(keyword)%>&fw=<%=fw%>&page=<%=page-1%>">上一页</a><%else%><font color=666666>上一页</font><%end if%>　<%if page+1<=totalpage then%><a href="welcomegbscview.asp?keyword=<%=server.URLEncode(keyword)%>&fw=<%=fw%>&page=<%=page+1%>">下一页</a><%else%><font color=666666>下一页</font><%end if%>　<a href=javascript:history.go(0) title=刷新本页>第<%=page%>页</a></td>
</tr>
</table>

</tr>
</form>
</table>
  <hr noshade size="2" color=009900>
  <table width=440 border=0 cellpadding=4 bgcolor=DCD8D0>
    <tr bgcolor="#DCD8D0"> 
      <td align=center>在你选定的范围内下列留言中包含关键词：<%=keyword%></td>
</tr>
</table><%for i=1 to UBound(showwritetime)%>
  <hr noshade size="2" color=009900>
  <table width=440 border=1 cellspacing=0 bordercolorlight=#DCD8D0 bordercolordark=#DCD8D0 cellpadding=0 bgcolor="#DCD8D0" bordercolor="#DCD8D0">
    <tr><td>
        <table width=100% border=0 cellpadding=4>
          <tr bgcolor=#DCD8D0> 
            <td width=10% align=center>写给:</td>
            <td width=61%> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td><%=showtowho(i)%><%if showmm(i)="1" then Response.Write "　<font color=red>[悄悄话]</font>"%></td>
<td align="right"><a href="welcomegbwrite.asp?towho=<%=server.URLEncode(showtowho(i))%>&title=<%=server.URLEncode(showtitle(i))%>">回复</a></td>
</tr>
</table>
</td>
            <td align=right width=29%><%=showwritetime(i)%></td>
</tr></table>
        <table width=100% border=0 bordercolorlight=#DCD8D0 bordercolordark=#DCD8D0 bgcolor=#DCD8D0 bordercolor="#DCD8D0">
          <tr> 
            <td width=10% align=center bordercolor="#DCD8D0" bgcolor="#DCD8D0">主题:</td>
            <td width=90% bordercolor="#DCD8D0" bgcolor="#DCD8D0"><b><%=showtitle(i)%></b></td>
</tr>
          <tr> 
            <td width=10% align=center bgcolor="#DCD8D0" bordercolor="#DCD8D0">内容:</td>
            <td width=90% bgcolor="#DCD8D0" bordercolor="#DCD8D0"><font color=0066FF class=l1><%=showintro(i)%></font></td>
          </tr>
          <tr bgcolor="#DCD8D0"> 
            <td width=10% align=center bordercolor="#DCD8D0">姓名:</td>
            <td width=90% bordercolor="#DCD8D0"> 
              <table width=100% border=0 cellspacing=0 cellpadding=0>
<tr><td><font color=FF0000><%=showfromwho(i)%></font></td>
<td align=right><%if showemail(i)<>"" then%><a href=mailto:<%=showemail(i)%>>信箱</a><%else%><font color=666666>信箱</font><%end if%>　<%if showhomeurl(i)<>"" then%><a href="<%=showhomeurl(i)%>" target="_blank" title="<%=showhomename(i)%>">主页</a><%else%><font color=666666>主页</font><%end if%></td>
</tr></table>
</td></tr>
          <tr bgcolor="#DCD8D0" bordercolor="#DCD8D0"> 
            <td width=10% align=center>来自:</td>
            <td width=90%><font color=009966><%if showhideip(i)<>"1" then Response.Write showip(i)&"　"%><%=showaddress(i)%></font></td>
</tr></table>
</td>
</tr>
</table>
  <%next%> 
  <hr noshade size="2" color=009900>
  <table width="440" border="0" cellpadding="5">
<tr>
<td>
<div align=center></div>
<p align=right><%if page-1>0 then%><a href="welcomegbscview.asp?keyword=<%=server.URLEncode(keyword)%>&fw=<%=fw%>&page=<%=page-1%>">上一页</a><%else%><font color=666666>上一页</font><%end if%>　<%if page+1<=totalpage then%><a href="welcomegbscview.asp?keyword=<%=server.URLEncode(keyword)%>&fw=<%=fw%>&page=<%=page+1%>">下一页</a><%else%><font color=666666>下一页</font><%end if%>　<a href="#begin">〖回到页首〗</a></p>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -