p.asp
来自「健康哈师大恺撒奖互动了看见爱好思路委屈戊二醛 问起我iuoeyioquweqwi」· ASP 代码 · 共 141 行
ASP
141 行
<!--#include file="abc/As_conn.asp"-->
<!--#include file="abc/function.asp"-->
<!--#include file="abc/xx.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin:0px; scrollbar-face-color: #B9E4B2;
scrollbar-highlight-color: #B9E4B2;
scrollbar-shadow-color: #1DA706;
scrollbar-3dlight-color: #1DA706;
scrollbar-arrow-color: #1DA706;
scrollbar-darkshadow-color:#B9E4B2;
background-image: url(img/bg22.gif);
background-position:
center 50%;
}
body, td, th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #009933;
}
a {
font-family: 宋体;
font-size: 12px;
}
.an { background-color: #FFFFFF;
border: 1pt dashed #B9E4B2;
font-family: "宋体";
font-size: 12px;
font-weight: normal;
color: #00CC33;
}
a:link {
color: #009933;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #009933;
}
a:hover {
text-decoration: none;
color: #CCFF00;
}
a:active {
text-decoration: none;
color: #CCFF00;
}
a:link {
color: #009933;
text-decoration: none;
}
-->
</style>
<title>欢迎您发表评论</title>
</head>
<div align="center">
<table border="0" width="495" id="table1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#CEF9C7" height="36">
<p align="center"><!--#include file="abc/m.asp"-->
</td>
</tr>
<tr>
<td bgcolor="#CEF9C7" height="36">
<p align="center"><b><font color="#008000" size="3">〖读者评论〗</font></b></td>
</tr>
<tr>
<td>
<%
dim cl
dim act
dim id
id=request("id")
cl=request("class")
act=request("action")
call ConnectionDatabase
if request("dd")<>"" then
set Rs=GrateRs("select * from Asai_YCWX where id="&id,3)
if len(request("review"))>200 then
response.write("<div align=center><font color=red>对不起，您的评论不能这么长，阿赛的空间是有限的。</font></div><br>")
else
select case request("dd")
case 1
Rs("review")="<img src=images/S/wptpl.gif alt=普通评论>"&request("review")&"<br>"&Rs("review")
response.write "新年好！您发表的 <b>“普通评论”</b> 已成功记录在案！以下是本篇文章的评论："
response.write("<br>")
response.write("<br>")
Response.Write HtmlSelfEnCode(Rs("review"))
case 2
Rs("review")="<img src=images/S/wdfpl.gif alt=打分评价>"&request("review")&"<br>"&Rs("review")
response.write "新年好！您发表的 <i>“打分评价”</i> 已成功记录在案！以下是本篇文章的评论："
response.write("<br>")
response.write("<br>")
Response.Write HtmlSelfEnCode(Rs("review"))
case 3
Rs("review")="<img src=images/S/wyqbc.gif alt=友情报错>"&request("review")&"<br>"&Rs("review")
response.write "新年好！您发表的 <u>“友情报错”</u> 已成功记录在案！以下是本篇文章的评论："
response.write("<br>")
response.write("<br>")
Response.Write HtmlSelfEnCode(Rs("review"))
end select
Rs.update
response.write("<br>")
end if
end if
set Rs=GrateRs("select * from Asai_YCWX",1)
do while not Rs.eof
Rs.movenext
loop
if id<>"" then
set Rs=GrateRs("select * from Asai_YCWX where id="&id,1)
%>
★请控制在200个字符以内！<form name="form4" method="POST" action="<%="p.asp?id="&Rs("id")%>" style="border: 1px dotted #54C940">
<p align="center">
<textarea name="review" cols="78" rows="3" class="an" id="review"></textarea>
<br>
<input name="dd" type="radio" class="an" value="1" checked>
普通评论
<input name="dd" type="radio" class="an" value="2">
打分评价
<input name="dd" type="radio" class="an" value="3">
友情报错
<br><br>
<input name="Submit" type="submit" class="an" value="提交">
<input style=font-size: 9pt type= value=关闭窗口 onClick=javascript:window.close() name="button"></p>
</form>
<p align="center">
<%
end if
%><%
call DBConnEnd
%>
<input type=button class="an" value=关闭窗口 onClick=javascript:window.close() name="button">
<br><script language=javascript src=abc/As_Count.Asp?AsaiTj=2></script></table>
</div>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?