📄 updatereview.asp

📁 书店的管理系统。不错的一个源程序。提供给大家。

💻 ASP

字号:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>书评</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY style="FONT-SIZE: 9pt">

<%
XHBID=Request.form("XHBID")
grade=request.form("grade")
review_title=request.form("review_title")
review=request.form("review")
log_name=request.form("log_name")

set con=server.createobject("ADODB.Connection")
con.open Application("str_con")

set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con

res.source="select grade,review_title,review,log_name,write_time,XHBID from book_review where 1=2"
res.cursorlocation=3
res.LockType=3
res.open ,,adOpenDaynamic

res.AddNew

res("grade")=grade
res("review_title")=review_title
res("review")=review
res("log_name")=log_name
res("XHBID")=XHBID
res("write_time")=now()

res.Update

if con.errors.count>0 then
	response.write "系统发生错误："&con.errors(0).description
else
%>
	<center><%=log_name%>，您已经成功地提交了书评！<br><br><br>
	<input type="button" value="　关闭窗口　" style="BACKGROUND: #ffff00; FONT-SIZE: 9pt" onclick="javascript:window.close()" id=button1 name=button1> 
	</center>
<%
end if

res.close
con.close
%>


</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -