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

if (len(zuoze)>12 ) then
	response.write "對不起，您輸入的名字太長!"
	response.write "<a href=xhtijiao.htm>返回</a>"
	response.end
end if
if (len(biaoti)>40) then
	response.write "對不起，您輸入的標題太長!"
	response.write "<a href=xhtijiao.htm>返回</a>"
	response.end
end if
if (len(xiaohua)>600) then
	response.write "對不起，您輸入的內容太長!"
	response.write "<a href=xhtijiao.htm>返回</a>"
	response.end
end if
'response.write len(xiaohua)
'response.end
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString") 
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
'response.write fenlei
'response.end
'response.write "<br>"
rs.open "select * from xiaohua ",conn

rs.addnew
rs("fenlei")=Cint(fenlei)
rs("biaoti")=trim(biaoti)
rs("zuozexm")=trim(zuoze)
rs("neirong")=xiaohua
rs("riqi")=now
rs("cishu")=1
rs.update
set conn=nothing

%>
<script language="JavaScript">
<!--
	alert("OK!...提交成功!");
	for(i=0;i<20;i++);
	window.location.href="xhtijiao.htm";
//-->
</script>