<body>
<H1>
CSDN帖子搜索（2003年,目前截至10月30日的帖子）<a href='http://www.applevb.com'>wwww.applevb.com</a>
</H1>
<br>
<br>
<table>
<tr>
<td width
</tr>
<%
dim keys
dim arr
dim i
dim sql
dim strAnd
Dim rs
dim i1
dim i2
dim url
dim index
dim ggg
strAnd = ""
On Error Resume Next
keys = Request("keys")
keys = replace(keys,"'"," ")
keys = replace(keys,"#"," ")
keys = replace(keys,"+"," ")
keys = replace(keys,"$"," ")
keys = trim(keys)
if(len(keys) =0 ) then
response.Write("<H3>请输入搜索关键字</H3><br>")
else
'sql = "select top 50 csdn_topic, CATA_INDEX from t_topic where contains(csdn_topic,'"
sql = "select cata_index,csdn_topic from T_Topic "
sql = sql & " inner join containstable( t_topic,csdn_topic,'"
arr = split(keys," ")
for i = LBound(arr) to UBound(arr)
if(lenb(trim(arr
)) > 1) then
sql = sql + strAnd + arr
strAnd = " AND "
end if
next
'sql = sql & "') and type_id = " & Request("types")
sql = sql & "') AS KEY_TBL "
sql = sql & "on key_tbl.[key] = t_topic.cata_index "
if (Request("types") <> "-99") then
sql = sql + " and type_id = " & Request("types")
end if
'response.write(sql)
'response.write("<br>")
Set conn=Server.CreateObject("ADODB.Connection")
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\2003 document\db1.mdb;Persist Security Info=False
conn.Open "DRIVER={SQL Server};SERVER=chen;DATABASE=csdn_v2;UID=sa;PWD=xiao haha"
Set rs = CreateObject("ADODB.Recordset")
set rs.ActiveConnection = conn
call rs.Open (sql, conn)
conn.Execute("update t_click set click_count = click_count + 1")
if( err.Number = -2147217900 ) then
response.write("有的关键字过于简单，请不要使用过于简单的字和单词，不要使用特殊符号<BR>")
else if ( err.Number <> 0 ) then
response.write( err.Description & "<BR>")
response.write( err.Number & "<BR>")
response.write(ggg)
else
index = 0
response.write "<OL>"
While (Not rs.EOF)
URL = "http://expert.csdn.net/Expert/topic/" & int(rs(0).Value / 1000) & "/" & rs(0).Value & ".xml"
index = index + 1
response.write "<LI><A HReF = '" & URL & "' target=_blank>" & rs(1).Value & "</A></LI>"
response.write("<br>")
rs.MoveNext
Wend
response.write "</OL>"
end if
conn.close
end if
end if
%>
</table>
打印 | 张贴于 2004-04-22 08:08:00 | Tag:暂无标签