<%=S_Name%>
按分类查找：
<%
If S_Parent<>0 Then
psql="select * from T_Sort where S_Parent="&S_Parent&" order by S_Index asc"
else
psql="select * from T_Sort where S_Parent="&s&" order by S_Index asc"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open psql,ConnSTrAcc,1,1
do while not rs.eof
%>
-
<%If Cint(s)=rs("S_Id") Then%>
<%=rs("S_Name")%>
<%else%>
"><%=rs("S_Name")%>
<%end if%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
-
标题(共70724条)
提问时间
回答数
<%
DIm c:c=co.GetHttpPage(baiduUrl)
c=Replace(c,vbcrlf,"")
c=Replace(c,vbcr,"")
c=Replace(c,vblf,"")
Set reg = new RegExp
reg.IgnoreCase = True
reg.Global = True
reg.Pattern = ".*?| .*?(.*?).*?[(.*?)].*? | (\d{1,9900}) | .*?nowrap>(.*?).*? "
Set objMatches = reg.Execute(c)
If objMatches.Count > 0 Then
For k=0 to objMatches.Count-1
%>
-
<%=objMatches(k).SubMatches(1)%>
<%=objMatches(k).SubMatches(3)%>
<%=objMatches(k).SubMatches(2)%>
<%
Next
End if
%>
|
