📄 hcpjview.asp
字号:
<!--#include file="config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="head.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Sitename%>-花草展示页</title>
<LINK href="css.css" type=text/css rel=stylesheet>
</head>
<body>
<%sitehead
id=clng(request("id"))
if id="" or id<1 then ShowError("访问选手不存在")%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="291" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td width="86%" height="25"> <img src="skins/1/xb3.gif"> 当前位置:<a href="index.asp">首页</a> >> <a href="hcview.asp?id=<%=id%>"><%=obj.getname(id,1,SiteDatabase)%>展示页</a> >> <a href="?"><%=obj.getname(id,1,SiteDatabase)%>评价列表</a></td>
<td width="14%"><%if session("xyluser")<>"" then%><a href="hcview.asp?id=<%=id%>#addhf">我要评价</a><%end if%></td>
</tr>
</table>
<%Select Case request("type2")
Case "edit":
Call edit
Case Else:
call show
End Select
sub show%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="20" bgcolor="#FFCCCC"><div align="center">评价列表</div></td>
</tr>
</table>
<%rs.open "select * from [hcpj] where hcid="&id&" order by id desc",conn,1,1
If Rs.eof and Rs.bof Then
Response.write("<center>暂无评价</center>")
else
dim strFileName,i,j,totalPut,CurrentPage,TotalPages
totalPut=rs.recordcount
const MaxPerPage=20
strFileName="?id="&id&""
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
if currentPage<>1 and (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
else
currentPage=1
end if
i=0
mm=0
if currentPage>1 then mm=(currentPage-1)*10
do while not rs.eof
mm=mm+1%>
<table width="760" border="0" align="center" cellpadding="1" cellspacing="1" class="tableborder">
<tr bgcolor="#F7F7F7">
<td width="160" height="160" valign="top" bgcolor="#F7F7F7"><%if rs("userid")<>"" then
set rc=conn.execute ("select realname,sitemoney,bbscount,bbsjob,face,width,height,joindate,printcm,email,homepage,msn,qq,sitejob from user where id ="&rs("userid")&"")
if rc.eof then
response.write "此人已被删除"
else%> <b><A href="datum.asp?userid=<%=rs("userid")%>"><%=rc("realname")%></a></b><br>
<%if rc("sitejob")=3 then response.write "网站管理员" else response.write rc("bbsjob") end if%><BR> <%=obj.rank(rc("sitemoney"))%><BR> <%=obj.exportface(rc("face"),rc("width"),rc("height"),siteskins)%>
<BR>
积分:<%=rc("sitemoney")%><BR> 注册:<%=rc("joindate")%>
<%printcm=rc("printcm")
end if
else
response.write "发布人帐号丢失"
end if%></td>
<td width="600" valign="top" bgcolor="#F7F7F7">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100" valign="top">标题：<%=rs("title")%><a name="<%=rs(0)%>"></a><br>
<%=rs("content")%></td>
</tr>
<tr>
<td height="60" valign="top"><img src="skins/1/bbsface/sigline.gif" width="363" height="16"><br>
<%=printcm%> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="25"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="76%"> <%=rs("adddate")%></td>
<td width="24%"><div align="right">#<%=mm%></div></td>
</tr>
</table></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60%"><%if rs("userid")<>"" and not rc.eof then%>
<A href="datum.asp?userid=<%=rs("userid")%>"><img src="skins/1/bbsface/PROFILE.GIF" width="45" height="18" border="0"></a> <a href="mail.asp?type2=add&toid=<%=rs("userid")%>"><img src="skins/1/bbsface/message.gif" width="48" height="18" border="0"></a> <a href="<%=rc("homepage")%>" target="_blank"><img src="skins/1/bbsface/homepage.gif" width="47" height="18" border="0"></a> <a href="mailto:<%=rc("email")%>"><img src="skins/1/bbsface/EMAIL.GIF" width="45" height="18" border="0"></a> <a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rc("qq")%>&Site=yvsy.com&Menu=yes" target="_blank"><img src="skins/1/bbsface/oicq.gif" width="45" height="18" border="0"></a> <img src="skins/1/bbsface/msn.gif" alt="<%=rc("msn")%>" width="45" height="18" border="0"></a>
<%else
response.write "发布人帐号丢失"
end if%></td>
<td><%if session("sitejob")=3 or rs("userid")=session("xyluserid") or adminid=session("xyluserid") or adminid2=session("xyluserid") then%><a href="?id=<%=rs("id")%>&type2=edit&bid=<%=bid%>"><img src="skins/1/bbsface/edit.gif" width="48" height="18" border="0"></a>
<a href="?type2=del2&id=<%=rs("id")%>&bid=<%=bid%>" onclick="return confirm('确定要删除这个回复吗?')"><img src="skins/1/bbsface/a_delete.gif" width="52" height="16" border="0"></a>
<%end if%></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#FFFFFF"></td>
</tr>
</table>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end if%>
<table width="760" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" class="border">
<tr>
<td height="25" bgcolor="#f9f8f2"><div align="center"><%=obj.showpage(strFileName,totalput,MaxPerPage,true,true,"条",currentPage)%></div></td>
</tr>
</table>
<%rs.close
set rs=nothing
%><br>
</td>
</tr>
</table>
<%end sub
sitebottom%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -