📄 hxtalkear.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%ColumnName="":Tablename="HX_Talkear":style=request("style"):keywords=request("keywords"):Orderby=" where WS_TalkEarSubjectId=0"
if style<>"" then msg="对不起,没有搜索到你要找内容!" else msg="暂 无 数 据!" end if
select case style
case "title":Orderby=Orderby&" and WS_TalkEarSubject like '%"&keywords&"%'"
case "content":Orderby=Orderby&" and WS_TalkEarcontent like '%"&keywords&"%'"
case "name":Orderby=Orderby&" and WS_TalkEarName like '%"&keywords&"%'"
end select
Orderby=Orderby&" and (WS_TalkEarMan=0 or WS_TalkEarMan="&LogDepartment&") ORDER BY WS_TalkEarSendTime DESC"
action=request("action"):WS_TAid=request("WS_TAid")
if action="talkdel" then
if WS_TAid<>"" and isnumeric(WS_TAid) then conn.execute("delete from HX_TalkEar where WS_TAid="&WS_TAid&" or WS_TalkEarSubjectId="&WS_TAid)
WS_S.HX_redirect "hxtalkear.asp"
end if
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
response.Write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title></title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><script src='../hxinclude/hx_function.js'></script></head><body topmargin='20' leftmargin='0' bottommargin='0'><table width='700' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff background='../HXIMAGES/titlelinebg.gif'><table width='595' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>讨论区</font></td></tr></table><table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor=f1f1f1><tr bgcolor='#FFFFFF'><td><TABLE border=0 cellPadding=1 cellSpacing=1 width='100%' bgcolor=A1BBE0><TR><TD height='21' colspan='6'><TABLE border=0 cellPadding=2 cellSpacing=0 width='100%'><TR><FORM action='' method='post' name=form1><TD width=18% align='center'><SELECT name=style><OPTION selected value=title>按标题查询</OPTION><OPTION alue=content>按内容查询</OPTION><OPTION value=name>按作者查询</OPTION></SELECT></TD><TD width=34% align='center'><input name=keywords size=30></TD><TD width=37% ><input type='submit' name='Submit' value=' 查 询 '></TD><TD width=11% align=center> </TD></FORM></TR></TABLE></TD></TR><TR bgColor=#f1f1f1><TD width='271' height='30' bgColor=#f1f1f1><div align='center'>标 题</div></TD><TD width=77><div align='center'>作 者</div></TD><TD align=middle><div align='center'>回复/人气</div></TD><TD width='119' align=middle><div align='center'>最后更新时间</div></TD><TD width='63' align=middle><div align='center'>最后回复</div></TD></TR>"
if rs.recordcount<=0 then
response.write "<TR bgColor=#ffffff><td colspan=6 height=25 align=center><font color=red>"&msg&"</font></td></tr>"
else
rs.PageSize =15 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=0
do while not rs.EOF
response.Write "<tr "
if i mod 2 =0 then response.write "bgcolor=#FFFFFF" else response.write "bgcolor=#f1f1f1"
response.Write " onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><TD height='25'><IMG src='../HXIMAGES/talkear/"&rs("WS_TalkEarPic")&"' align='absmiddle'><a href='javascript:' onClick=""openwin(620,420,'readtalker.asp?SubjectId="&rs("WS_TAID")&"');"">"&rs("WS_TalkEarSubject")&"</A></TD><TD width=77 align=center><a href='../HXManpowerResource/userinfolook.asp?WS_ViewUserName="&rs("WS_TalkEarname")&"'>"&rs("WS_TalkEarname")&"</a></TD><TD width=71 align=center>"
set rers=WS_S.HX_SetRSD(ColumnName,"HX_Talkear"," where WS_TalkEarSubjectId="&rs("WS_TAID")&" order by WS_TAID desc"):response.Write rers.recordcount&"/"&rs("WS_TalkEarKnock")
if rers.recordcount>0 then WS_ViewUserName=rers("WS_TalkEarname") else WS_ViewUserName="" end if:WS_S.HX_RSClose rers
response.Write "</TD><TD align=center>"&rs("WS_TalkEarSendTime")&"</TD><TD align=center><div align='center'><a href='../HXManpowerResource/userinfolook.asp?WS_ViewUserName="&WS_ViewUserName&"'>"&WS_ViewUserName&"</a></div></TD></TR>"
i=i+1
if i>=rs.PageSize then Exit Do
rs.movenext
loop
call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",6)
end if
WS_S.HX_RSClose rs
response.Write "</TABLE></td></tr></table></td></tr></table>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -