xhrevise2.asp

大家好

<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
id=request("id")
fenlei=request("fenlei")
biaoti=request("biaoti")
zuoze=request("zuoze")
xiaohua=request("xiaohua")
if xiaohua="" then
	response.write "内容不能为空"
	response.write "<a href=""../xhtj/xhtijiao.htm"">返回</a>重新录入"
	response.end
end if

if (len(zuoze)>12 ) then
	response.write "对不起，您输入的名字太长!"
	response.write "<a href=../xhtj/xhtijiao.htm>返回</a>"
	response.end
end if
if (len(biaoti)>40) then
	response.write "对不起，您输入的标题太长!"
	response.write "<a href=../xhtj/xhtijiao.htm>返回</a>"
	response.end
end if
if (len(xiaohua)>600) then
	response.write "对不起，您输入的内容太长!"
	response.write "<a href=../xhtj/xhtijiao.htm>返回</a>"
	response.end
end if

set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString") 
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic

sqlstr="select * from xiaohua where id='"& id &"'order by riqi desc"
rs.open sqlstr,conn

if request("button4")<>"" then
	rs.delete
	rs.movefirst
else

rs("biaoti")=trim(biaoti)
rs("zuozexm")=trim(zuoze)
rs("neirong")=xiaohua

rs.update
end if
set conn=nothing

%>
<script language="JavaScript">
<!--
	alert("OK!...修改成功!");
	for(i=0;i<20;i++);
	window.location.href="../adm/manager.asp";
//-->
</script>