<%
act=SafeRequest(request("act"),0)
key=SafeRequest(request("key"),0)
ra=SafeRequest(request("ra"),0)
hf=SafeRequest(request("hf"),0)
ss=request("ss")
dim ado2,rs2
set ado2 = new cado
if act="add" then
if cstr(session("getcode"))<>cstr(trim(request("verifycode"))) then
response.Write ""
'javascript:history.go(-1);
response.End()
end if
call add()
end if
%>
<%
'分页内容
dim n,pagename,keyword,maxpagecount,TotalNumber
dim pagestart,pageend,strurl,ii
if not isempty(request("page")) then
CurrentPage=cint(request("page"))
else
CurrentPage=1
end if
const MaxPerPage = 30 '每页显示数
TotalNumber=0
on error resume next
if hf="" then
sql="select * from zixun where 1=1"
if key="jh" then
sql=sql&" and jh=1"
elseif key<>"" then
sql=sql&" and type='"&key&"'"
end if
if ss<>"" then
select case ra
case "标题"
sql=sql&" and title like '%"&ss&"%'"
case "作者"
sql=sql&" and username like '%"&ss&"%'"
case "内容"
sql=sql&" and content like '%"&ss&"%'"
end select
end if
sql=sql&" order by zd desc,h_addtime desc"
else
if ss<>"" then
sql="select * from zixun,(select distinct(channelid) as cid from huifu where Reply like '%"&ss&"%')as tab where 1=1"
select case ra
case "标题"
sql=sql&" and title like '%"&ss&"%' or tab.cid=zixun.id"
case "作者"
sql=sql&" and username like '%"&ss&"%' or tab.cid=zixun.id"
case "内容"
sql=sql&" and content like '%"&ss&"%' or tab.cid=zixun.id"
end select
else
sql="select * from zixun where 1=1"
end if
sql=sql&" order by zixun.zd desc,zixun.h_addtime desc"
end if
set rs=ado.getrecordset(sql)
call errorredirect
pagename = "index.asp"
if not(rs.BOF or rs.EOF) then
rs.pagesize = MaxPerPage
maxpagecount=rs.pagecount '记录总页数
TotalNumber=cint(Rs.RecordCount)'记录总数
Rs.absolutepage = CurrentPage '当前页数
ii=0
'显示多少页
pagestart=CurrentPage-3
pageend=CurrentPage+3
n=CurrentPage
if pagestart<1 then
pagestart=1
end if
if pageend>maxpagecount then
pageend=maxpagecount
end if
if n
| 您现在的位置：首页 > 专家答疑 |
本版共有主题 <%=TotalNumber%> |
|
|
<%if not(rs.BOF or rs.EOF) then%>
| 点击率 |
回复 |
主题 |
作者 |
时间 |
回复人 |
<% do while not Rs.eof and ii
| <%=rs("hits")%> |
<%on error resume next
sql="select count(*) as ct from huifu where channelid="&rs("id")
set rs2=ado2.getrecordset(sql)
call errorredirect
if not rs2.eof then
hf_count=rs2("ct")
else
hf_count=0
end if
response.Write hf_count%> |
<%="["&rs("type")&"]"%><%if rs("zd")=1 then%>[置顶]<%end if%>" target="_blank"><%=rs("title")%><%if rs("jh")=1 then%>
[精华]
<%end if%> |
<%=rs("username")%> |
<%=Formatdatetime(rs("addtime"),2)%> |
<%on error resume next
sql="select top 1 * from huifu where channelid="&rs("id")&" order by addtime desc"
set rs2=ado2.getrecordset(sql)
call errorredirect
if not rs2.eof then
hf_name=rs2("name")
else
hf_name="匿名用户"
end if
response.Write hf_name%> |
<%Rs.movenext
ii=ii+1
loop%>
<%
else
maxpagecount=1
n=maxpagecount
TotalNumber=0
%>| 暂无信息 |
<% end if %>
| <%call showpage%> |
|
|
<%
sub add()
title=saferequest(request("title"),0) '标题
content=request("content") '内容
types=saferequest(request("boardid"),0) '专题
if len(session("usernames"))>0 then
username=session("usernames") '会员名称
else
username="匿名用户" '会员名称
end if
if len(session("userids"))>0 then
userid=session("userids") '会员ID
else
userid=0 '会员ID
end if
h_addtime=now()
addtime=now() '提交时间
on error resume next
sql="INSERT INTO zixun ( userid, username, title, content, type, addtime, h_addtime ) values ("&userid&",'"&username&"','"&title&"','"&content&"','"&types&"','"&addtime&"','"&h_addtime&"')"
ado.getrecordset(sql)
call errorredirect
If Err.number>0 Then
Response.Write "留言提交失败!"
Response.End
else
response.Write ""
response.End()
End If
end sub
%>
<% sub showpage() %>
<% end sub %>
