?? so.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<!--#include file = "So_page.asp"-->
<link href="css/css.css" rel="stylesheet" type="text/css" />
<%
dim tj,tag
tags=Trim(HTMLEncode(Request("tag")))
tj=Trim(HTMLEncode(Request("tj")))
if Trim(tags)="" then
response.write"<SCRIPT language=JavaScript>alert('請輸入查詢關鍵字！');"
response.write"javascript:history.go(-1);</SCRIPT>"
response.end
end if
%>
<script language="JavaScript">
function submitForm(obj)
{
var Title=obj.Title.value;
var Sort=obj.Sort.value;
obj.action="list?sort="+Sort+"&title="+Title;
return true;
}
</script>
<%
if tj="all" then
pxzd=HTMLEncode(request.querystring("pxzd"))
if pxzd="" then pxzd="hot"
sql="select ID,IIf(Len(Title)<46,Title,Left(Title,46)+'...') as Title,UserID,FromURL,HtmUrl,hot,filepath,PostTime,Xsort,Reads,b.SortName,IIf(Len(Intro)<80,Intro,Left(Intro,80)+'...') as Intro from zhai a,sort b where a.Sort=b.SortID and a.Title like '%"&trim(tags)&"%' and isPub=true order by "&pxzd&" desc,id desc"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1
%>
<table width="900" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="28" align="center" bgcolor="#F9F0E6" class="title">查詢關鍵字：<font color="#FF0000"><%=tags%></font> 共找到<font class="redfont"><%=rs.recordcount%></font>項</td>
</tr>
<tr>
<td height="2" bgcolor="#D5954F"></td>
</tr>
<tr>
<td width="935" valign="top">
<table width="900" border="0" align="center" cellpadding="2" cellspacing="0" id="table15">
<tr>
<td valign="top">
<div align="left">
<table width="98%" border="0" cellspacing="3" id="table16">
<%
pageno=cint(request.querystring("pageno"))
if pageno=0 then pageno=1
if not rs.bof and not rs.eof then ' 當有數據的時候
rs.pagesize=10
rs.absolutepage=pageno
for i=1 to rs.pagesize
if rs.eof then exit for
if i mod 2 =1 then
bg="#FFFFFF"
else
bg="#F6F6F6"
end if
response.write "<tr><td></td></tr>"
Response.Write("<tr>")
if isgd=1 then
linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
else
linkadd="goto.asp?id="&rs("id")
end if
if rs("hot")=1 then
hot="<font color='red'>[薦]</font>"
else
hot=""
end if
a=split(rs("PostTime"),"-")
Response.Write("<td valign='top' bgcolor="&BG&" align=left class='list2'>"&hot&"·<a href="&linkadd&" target='_blank' title='"&HTMLEncode(rs("Title"))&"'><font color=#333366 class='title'>"&HTMLEncode(rs("Title"))&"</font></a><br><span class='ray'> "&cutStr(rs("Intro"),100)&"</br> 收藏時間：["&rs("PostTime")&"] (<a href='userzhai.asp?zhaiuser="&rs("userid")&"'>"&rs("userid")&"</a>收藏) 點擊次數："&rs("reads")&"</br> 原文網址：<a href="&linkadd&" target='_blank' title='"&HTMLEncode(rs("Title"))&"'>"&HTMLEncode(rs("FromURL"))&"</a></span></td>")
rs.MoveNext
row=row+1
Response.Write("</tr>")
next
Response.Write "<tr>"
response.write "<td class='mt'><br>"
tj="tag="&tags&"&tj="&tj&"&pxzd="&pxzd
page "so.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount
response.write "</td>"
Response.Write "</tr>"
else
response.write "暫無數據"
end if
%>
<tr align="right">
<td> </td>
</tr>
</table>
</div> </td>
<td valign="top" width="200"><br />
<form method="POST" action="so.asp">
<table width="100%" border="0" cellPadding="2" cellSpacing="0" id="table106">
<tr>
<td vAlign="bottom" align="middle" style="font-size: 14px; line-height: 22px">
<input id="tag" maxLength="50" size="18" name="tag" value="<%=tags%>"> </td>
<td vAlign="bottom" align="right" style="font-size: 14px; line-height: 22px">
<input class="button" id="submit1" type="submit" value=" 搜索 " name="submit1"></td>
</tr>
<tr>
<td colspan="2" vAlign="top" class="grayscript">
<input id="sc" type="radio" value="all" name="tj" checked><label for="sc">所有收藏</label>
<input id="hy" type="radio" value="user" name="tj"><label for="hy">用戶</label>
<input id="all" type="radio" value="bq" name="tj"><label for="all"><font color="#ff6600">標簽</font></label> </td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table>
<%elseif tj="user" then
%>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="28" align="left" bgcolor="#D4D0C8" class="title">搜索結果如下</td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
<table width="900" border="0" cellpadding="3" cellspacing="4">
<%
pageno=request("pageno")
if pageno="" then pageno=1
sql="select * from myuser where userid like '%"&tags&"%'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=12
rs.absolutepage=pageno
zjls=rs.pagesize
if zjls mod 4 =0 then
hs=zjls/4
else
hs=round(zjls/4+0.6)
end if
for i=1 to hs
if rs.eof then exit for
%>
<tr>
<td valign="top" align="left" style="border: 1px solid #C0C0C0" bgcolor="#F2F2F2" class="list">
ID：<font class="redfont"><%=rs("id")%></font><br>
用戶名：<font class="redfont"><a href="userzhai.asp?ZhaiUser=<%=rs("username")%>"><%=rs("username")%></a></font><br>
郵箱：<font class="redfont"><%=rs("Email")%></font><br>
注冊日期：<font class="redfont">
<%
a=split(rs("RegTime")," ")
response.write a(0)
%></font>
<br>
收藏網摘：<font class="redfont"><%=rs("zhaiNum")%>
<a href="userzhai.asp?ZhaiUser=<%=rs("username")%>">查看</a></font></td>
<%rs.movenext
if rs.eof then exit for
%>
<td valign="top" align="left" style="border: 1px solid #C0C0C0" bgcolor="#F2F2F2" class="list">
ID：<font class="redfont"><%=rs("id")%></font><br>
用戶名：<font class="redfont"><a href="userzhai.asp?ZhaiUser=<%=rs("username")%>"><%=rs("username")%></a></font><br>
郵箱：<font class="redfont"><%=rs("Email")%></font><br>
注冊日期：<font class="redfont">
<%
a=split(rs("RegTime")," ")
response.write a(0)
%></font><br>
收藏網摘：<font class="redfont"><%=rs("zhaiNum")%>
<a href="userzhai.asp?ZhaiUser=<%=rs("username")%>">查看</a></font></td>
<%rs.movenext
if rs.eof then exit for
%>
<td valign="top" align="left" style="border: 1px solid #C0C0C0" bgcolor="#F2F2F2" class="list">
ID：<font class="redfont"><%=rs("id")%></font><br>
用戶名：<font class="redfont"><a href="userzhai.asp?ZhaiUser=<%=rs("username")%>"><%=rs("username")%></a></font><br>
郵箱：<font color="#FF0000"><%=rs("Email")%></font><br>
注冊日期：<font class="redfont">
<%
a=split(rs("RegTime")," ")
response.write a(0)
%></font><br>
收藏網摘：<font class="redfont"><%=rs("zhaiNum")%>
<a href="userzhai.asp?ZhaiUser=<%=rs("username")%>">查看</a></font></td>
<%rs.movenext
if rs.eof then exit for
%>
<td valign="top" align="left" style="border: 1px solid #C0C0C0" bgcolor="#F2F2F2" class="list">
ID：<font class="redfont"><%=rs("id")%></font><br>
用戶名：<font class="redfont"><a href="userzhai.asp?ZhaiUser=<%=rs("username")%>"><%=rs("username")%></a></font><br>
郵箱：<font class="redfont"><%=rs("Email")%></font><br>
注冊日期：<font class="redfont">
<%
a=split(rs("RegTime")," ")
response.write a(0)
%></font><br>
收藏網摘：<font class="redfont"><%=rs("zhaiNum")%>
<a href="userzhai.asp?ZhaiUser=<%=rs("username")%>">查看</a></font></td>
<%rs.movenext
if rs.eof then exit for
%>
</tr>
<%next%>
<tr>
<td valign="bottom" align="center" colspan="4">
<%
tj1="tag="&tags&"&tj="&tj
page "so.asp",tj1,pageno,rs.pagecount,rs.pagesize,rs.recordcount
%>
</td>
</tr>
<%else%>
<tr>
<td valign="bottom" align="center" colspan="4">暫無內容</td>
</tr>
<%end if%>
</table>
<%else%>
<table width="900" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" colspan="3"></td>
</tr>
<tr>
<td width="200" height="28" align="left" bgcolor="#D4D0C8" class="title">熱門標簽</td>
<td width="10" rowspan="2"></td>
<td width="690" align="left" bgcolor="#BECDE6" class="title">搜索 <font color="#FF0000"><%=tags%></font>
的標簽</td>
</tr>
<tr>
<td valign="top" bgcolor="#F4EFE5" class="list">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="left">
<%
set rs=conn.execute("select top 45 id,sort,XSort from XSort order by hits desc")
i=1
do while i<=45 and not rs.eof
%>
<A class=link2 href="tag.asp?xsort=<%=rs(2)%>"><%=rs(2)%></A>
<%
rs.movenext
i=i+1
loop
rs.close%>
<a style="COLOR: #ff6600; text-decoration:underline" target="_blank" href="tagmore.asp">更多>></a> </td>
</tr>
</table></td>
<td width="690" valign="top" bgcolor="#eeeeee">
<table width="100%" border="0" cellpadding="3" cellspacing="4">
<%
pageno=request("pageno")
if pageno="" then pageno=1
sql="select * from xsort where xsort like '%"&tags&"%'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=32
rs.absolutepage=pageno
zjls=rs.pagesize
if zjls mod 4 =0 then
hs=zjls/4
else
hs=round(zjls/4+0.6)
end if
for i=1 to hs
if rs.eof then exit for
%>
<tr>
<td valign="top" align="left" style="border: 1px solid #C0C0C0" bgcolor="#F2F2F2" class="list">
<a href="tag.asp?xsort=<%=rs("XSort")%>"><%=rs("XSort")%></a></td>
<%rs.movenext
if rs.eof then exit for
%>
<td valign="top" align="left" style="border: 1px solid #C0C0C0" bgcolor="#F2F2F2" class="list">
<a href="tag.asp?xsort=<%=rs("XSort")%>"><%=rs("XSort")%></a></td>
<%rs.movenext
if rs.eof then exit for
%>
<td valign="top" align="left" style="border: 1px solid #C0C0C0" bgcolor="#F2F2F2" class="list">
<a href="tag.asp?xsort=<%=rs("XSort")%>"><%=rs("XSort")%></a></td>
<%rs.movenext
if rs.eof then exit for
%>
<td valign="top" align="left" style="border: 1px solid #C0C0C0" bgcolor="#F2F2F2" class="list">
<a href="tag.asp?xsort=<%=rs("XSort")%>"><%=rs("XSort")%></a></td>
<%rs.movenext
if rs.eof then exit for
%>
</tr>
<%next%>
<tr>
<td valign="bottom" align="center" colspan="4">
</td>
</tr>
<tr>
<td valign="bottom" align="center" colspan="4">
<%
tj1="tag="&tags&"&tj="&tj
page "so.asp",tj1,pageno,rs.pagecount,rs.pagesize,rs.recordcount
%> </td>
</tr>
<%else%>
<tr>
<td valign="bottom" align="center" colspan="4">暫無內容</td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table>
<%end if%>
<!--#include file="bottom.asp"-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -