📄 discuss.asp
字号:
<%response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<!--#INCLUDE FILE="../../../system/function.asp"-->
<HTML>
<head>
<title>添加消息</title>
<link rel="stylesheet" href="../../../system/all.css">
<script language="JAVASCRIPT">
<!--
function check_Null(){
if (document.form1.title.value==""){
alert("标题不能为空!");
return false;
}
return true;
}
// -->
</script>
</head>
<body>
<%
dim user_id,title,reference_id
user_id=session("user_id")
title=request.querystring("title")
reference_id=request.querystring("id")
%>
<h4 >  发表评论</h4>
<center>
<table border='0' width='95%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0' height="114">
<tr bgcolor=#FFFFCC>
<td>
<TABLE border="0" width=100%>
<form METHOD="POST" ACTION="" name=form1 onsubmit="javascript: return check_Null();">
<tr><td>
标 题：</td><td><input type="text" name="title" size="60" value="Re:<%=title%>">**
<input type="hidden" name="reference_id" value="<%=reference_id%>">
</td></tr>
<tr><td>内 容：</td><td><Textarea name="body" Rows=6 Cols=60 WRAP=SOFT></TextArea></td></tr>
<tr><td></td><td><input TYPE="submit" VALUE=" 提交 " Size="20"></td></tr>
</form>
</table>
</td>
</tr>
</table>
</center>
<%
if request.form("title")<>"" then
dim writer_id,reader_id,back_flag
back_flag=request("thename2")
writer_id=session("user_id")
writer_type=session("user_type")
reader_id="ALL"
title=request.form("title")
body=request.form("body")
reference_id=request.form("reference_id")
Dim SQL,sValues
SQL = "Insert into reference_discuss(writer_id"
sValues = "values('" & writer_id & "'"
SQL = SQL & ",submit_date"
sValues = sValues & "," & "'" & date & "'"
SQL = SQL & ",writer_type"
sValues = sValues & ",'" & writer_type & "'"
SQL = SQL & ",reader_id"
sValues = sValues & "," & "'" & reader_id & "'"
SQL = SQL & ",lesson_id"
sValues = sValues & ",'" & session("lesson_id") & "'"
'下面开始是有关该文档的项目
SQL = SQL & ",title"
sValues = sValues & ",'" & title & "'"
SQL = SQL & ",reference_id"
sValues = sValues & ",'" & reference_id & "'"
if body<>"" then
SQL = SQL & ",body"
sValues = sValues & ",'" & myreplace(body) & "'"
end if
SQL = SQL & ") " & sValues & ")"
'执行动作
db.Execute(SQL)
'将原文章的回复数加1
sql="update reference set childs=childs+1 where id=" & reference_id
db.execute(sql)
response.redirect "particular.asp?thename=" & reference_id
end if
%>
</body>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -