📄 review.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="admin/inc/char.asp"-->
<%
dim rs,sql,id,FileName
id=CInt(Request.QueryString("id"))
sql="select FileName from Software where ID = "&id
set rs=conn.execute(sql)
FileName=rs(0)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>软件点评 - <%=SiteSetting(0)%></title>
<STYLE>
BODY {
scrollbar-face-color : <%=SkinSetting(10)%>;
scrollbar-shadow-color : <%=SkinSetting(11)%>;
scrollbar-highlight-color : <%=SkinSetting(12)%>;
scrollbar-3dlight-color : <%=SkinSetting(13)%>;
scrollbar-darkshadow-color : <%=SkinSetting(14)%>;
scrollbar-track-color : <%=SkinSetting(15)%>;
scrollbar-arrow-color : <%=SkinSetting(16)%>;
}
</STYLE>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="<%=SkinSetting(0)%>" background="<%=SkinSetting(1)%>" leftmargin="0" topmargin="0">
<br>
<table width="400" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="<%=SkinSetting(2)%>">
<tr>
<td height="20" bgcolor="<%=SkinSetting(7)%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="dropshadow"><strong><font face="Verdana, Arial, Helvetica, sans-serif, 宋体" color="<%=SkinSetting(6)%>"><%=FileName%></font></strong></td>
</tr>
</table></td>
</tr>
<%sql="select * from Review where SoftID = "&id&" order by id DESC"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
response.Write"<tr><td bgcolor="&SkinSetting(3)&"><center><font color=red>暂时还没有评论！</font></center></td></tr>"
else
do while not rs.eof
response.write "<tr><td bgcolor="&SkinSetting(4)&"><u>"&killchar(rs(2))&"</u> 发表于："&rs(4)&"</td></tr>"
response.write "<tr><td bgcolor="&SkinSetting(3)&">"&killchar(rs(3))&"<br><br></td></tr>"
rs.movenext
loop
end if
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<br>
<table width="400" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="<%=SkinSetting(2)%>">
<tr>
<form name="form2" method="post" action="review_save.asp?id=<%=id%>">
<td height="20" align="center" bgcolor="<%=SkinSetting(4)%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td>软件<br>
点评</td>
<td> <textarea name="Content" cols="30" rows="3" id="textarea"></textarea></td>
<td>姓名
<input name="MyName" type="text" id="MyName3" size="16" class="input"> <br>
信箱
<input name="Email" type="text" id="Email3" size="16" class="input"> </td>
</tr>
</table>
<br> <input name="Submit2" type="submit" class="button" value="提交">
<input name="Submit3" type="reset" class="button" value="重置"> </td>
</form>
</tr>
</table>
<br>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -