📄 art.asp

📁 情缘天空美化版 v3.68 强大的公告

💻 ASP

字号:

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<!--#include file="error.asp"-->
<link href="Sams.css" rel="stylesheet" type="text/css">
<script language=javascript>
<!--
function re()
{
window.opener.document.location.reload();
window.close();
}
-->
</script>
<%
if request.form("MM_insert")="true" then

if request.form("remark")="" or request.form("remarker")="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
end if
if request.form("page")<>"" then
if not isInteger(request.querystring("page")) then
founderr=true
errmsg=errmsg+"<br>"+"<li>非法的分页id参数。"
end if
end if
if founderr then
call diserror()
response.end
else
openarticle
art_id=request.form("art_id")
remark=request.form("remark")
remarker=request.form("remarker")
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from remark"
rs.open sql,conn,3,2
rs.addnew
rs("art_id")=art_id
rs("remark")=remark
rs("remarker")=remarker
rs.update
rs.close
response.write "<center><a href=""javascript:;"" onclick=""re()"">请点击返回</a></center>"	end if
else
%>
<body style="background-image: url('images/web_bg.gif')">

<table width="333" cellspacing="1" align="center" cellpadding="6" class="chinese">
<form name="addremark" method="POST">
<tr>
<td bgcolor="#f3f3f3" colspan="2">发表评论：</td>
</tr>
<tr>

<td height="13" width="23%">您的称呼</td>
<td height="13" width="77%"> <input type="text" name="remarker" class="input" size="30" maxlength="30">
30字符</td>
</tr>
<tr>

<td width="23%" valign="top">您的意见<br>
<br> </td>
<td width="77%"> <textarea name="remark" cols="38" rows="3" ></textarea>
<br>
225字符 </td>
</tr>
<tr bgcolor="#f3f3f3">
<td colspan="2"> <div align="center">
<input type="submit" name="Submit2" value="确定发表" class="input">
<input type="reset" name="reset" value="取消重写" class="input">
<input type="hidden" name="art_id" value="<%=request.querystring("art_id")%>">
</div></td>
</tr>
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
set rs=nothing
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -