reply.asp
来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 175 行
ASP
175 行
<!--#include file="dbconn.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute=now()-1
const recordsize=10
picArr=array("未提供图片","提供图片")
typeArr1=array("出售","求购")
dim mycurpage,rs,sql,pagemsg,totalpage,recordlen,tblname,myareakey
'/////////////////////////////////////////////////////////////////////////////
if request.querystring("curpage")="" then
mycurpage=1
else
mycurpage=cint(request.querystring("curpage"))
end if
'/////////////////////////////////////////////////////////////////////////////
set rs=server.createobject("adodb.recordset")
sql="select * from guest order by id desc"
rs.open sql,conn,3,1
recordlen=rs.recordcount
if recordlen=0 then
pagemsg="对不起，没有找到任何交易消息..."
else
if recordlen mod recordsize=0 then
totalpage=recordlen/recordsize
else
totalpage=fix(recordlen/recordsize)+1
end if
'/////////////////////////////////////////////////////////////////////////////
pagemsg="总共 <font color='#ff0000'>"&recordlen&"</font> 条提问 每页 <font color='#ff0000'>"&recordsize&" </font>条 当前: "&mycurpage&" / "&totalpage&" 页"
if mycurpage=1 then
pagemsg=pagemsg&" [首页] "
else
pagemsg=pagemsg&" <a href='?curpage=1'>[首页] </a> "
end if
if mycurpage=1 then
pagemsg=pagemsg&" [上页] "
else
pagemsg=pagemsg&" <a href='?curpage="&(mycurpage-1)&"'>[上页]</a> "
end if
if mycurpage=totalpage then
pagemsg=pagemsg&" [下页] "
else
pagemsg=pagemsg&" <a href='?curpage="&(mycurpage+1)&"'>[下页]</a> "
end if
if mycurpage=totalpage then
pagemsg=pagemsg&" [尾页]"
else
pagemsg=pagemsg&" <a href='?curpage="&totalpage&"'>[尾页]</a>"
end if
end if
%>
<html>
<head>
<title>Untitled Document</title>
<%
'暂无
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../wgcs.css" rel=stylesheet>
<script language='javascript'>
function opennewwin(args1,args2,args3,args4,args5,args6){
var mynewwin;
mynewwin=window.open("selectResume.asp?careerid="+args1+"&sexid="+args2+"°reeid="+args3+"&experienceid="+args4+"&ageid1="+args5+"&ageid2="+args6);
}
function CreateList(id){
if (id==0){
document.frmjobs.dellist.value='';
for(x=0;x<frmjobs.checkY.length;x++){
document.frmjobs.checkY[x].checked=true;
if(document.frmjobs.dellist.value=='')
document.frmjobs.dellist.value=document.frmjobs.id[x].value;
else
document.frmjobs.dellist.value=document.frmjobs.dellist.value+','+document.frmjobs.id[x].value;
}
}
if (id==1){
for(x=0;x<frmjobs.checkY.length;x++)
document.frmjobs.checkY[x].checked=false;
document.frmjobs.dellist.value='';
}
if (id==2){
document.frmjobs.dellist.value='';
for(x=0;x<frmjobs.checkY.length;x++){
if(document.frmjobs.checkY[x].checked){
if(document.frmjobs.dellist.value=='')
document.frmjobs.dellist.value=document.frmjobs.id[x].value;
else
document.frmjobs.dellist.value=document.frmjobs.dellist.value+','+document.frmjobs.id[x].value;
}
}
}
}
function chuli(){
if (frmjobs.dellist.value==""){
alert("删除之前请至少选择一条记录");
return false;
}
else{
window.location="action.asp?key=deleteguest&idliststr=" + frmjobs.dellist.value;
}
}
</script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#dddddd">
<form method="post" name="frmjobs"><tr bgcolor="#FFFFFF">
<td colspan="5" align="center" height="25"> 所 有 用 户 提 问 列 表
<input name="dellist" type="hidden"></td>
</tr>
<tr bgcolor="#eeeeee" align="center" height="40">
<td width="51"><strong>选择</strong></td>
<td width="333"><strong>提问内容</strong></td>
<td width="262"><strong>提问时间</strong></td>
<td width="193"><strong>回复内容</strong></td>
<td width="148"><strong>操 作</strong></td>
</tr>
<%
if recordlen=0 then
response.write "<tr bgcolor='#FFFFFF'><td colspan=5 height=200><center><br><br>"&pagemsg&"</center></td></tr>"
response.end
end if
rs.move((mycurpage-1)*recordsize)
for j=1 to recordsize
tmpid=rs("id")
myanswer=rs("answer")
if myanswer<>"暂无" then
myanswer="<font color='#00ff00'>已有回复</font>"
else
myanswer="<font color='#ff0000'>暂无回复</font>"
end if
mytime=rs("sendtime")
'mytime=replace(mytime,"2006-","")
%>
<tr bgcolor="#FFFFFF" align="center" height="22">
<td><input onclick="CreateList(2);" name="checkY" type="checkbox" value=<%=tmpid%>><input name="id" type="hidden" size="2" value=<%=tmpid%>> </td>
<td> <%=left(rs("question"),12)&".."%></td>
<td> <%=mytime%></td>
<td> <%=myanswer%> </td>
<td>
<%
response.write "<a href='replyto.asp?replyid="&tmpid&"'><font size=2 color='#0000ff'>回复此提问</font></a>"
%>
</td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing
%>
<tr bgcolor="#FFFFFF">
<td colspan="5" align="right">
<%
if recordlen>0 then
%>
<a style="cursor:hand;color:#ff0000" onclick="CreateList(0);">[全选]</a> <a style="cursor:hand;color:#ff0000" onclick="CreateList(1);">[全取消]</a> <a style="cursor:hand" onclick="chuli();">[删除]</a>
<%
response.write pagemsg
else
response.write "<center><br><br><br><br>*** 对不起，没有找到任何提问！！！<center>"
response.end
end if
%>
</td>
</tr></form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?