add_content.asp asp+SQLServer网上书店系统设计(源代码+论文) - ASP源码程序

gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\add_content.asp

    <!--#include file="conn.asp"-->
<% 
 if session("user")="" then
  Response.redirect "backlogin.asp?msg=对不起你还没有登录,请返回登录!"
 end if
%>
<%
set rs1=server.createobject("adodb.recordset")
sqltext="select * from 书评"
rs1.open sqltext,cn,1,1
for i=1 to rs1.recordcount-1
rs1.movenext
next
set rs=server.createobject("adodb.recordset")
sqltext="select * from 书评"
rs.open sqltext,cn,3,3

rs.addnew
rs("ID")=rs1("ID")+1
rs("book_id")=request.form("id")
rs("content")=request.form("content")
rs("book_name")=request.form("book_name")
rs("con_date")=now()
rs("user_name")=session("user")
rs.update
rs.close
rs1.close
%>
<html>
<body bgcolor="#b4aed2">
<center> <h3>评论发表成功</h3>
<p><input type="button" value="  返回  " name="B4" onclick="javascript:window.history.go(-1)"  style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT-SIZE: 12px; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; BACKGROUND-COLOR: #ffcc44"><input type="button" value="关闭窗口" name="B2" onclick="window.close();" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT-SIZE: 12px; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; BACKGROUND-COLOR: #ffcc44" ></p>
</center>
</body>
<html>