<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
biaoti=request("biaoti")
fbiaoti=request("fbiaoti")
bm=request("bm")
mail=request("mail")
fenlei=request("fenlei")
text1=request("text1")
xm=request("xm")
dianhua=request("dianhua")
dizhi=request("dizhi")
youbian=request("youbian")

if text1="  "  then
	response.write "請您填寫文章內容！"
	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 loveshenghuo where 1<>1"
rs.open sqlstr,conn

rs.addnew
rs("biaoti")=biaoti
rs("fbiaoti")=fbiaoti
rs("bm")=bm
rs("mail")=mail
rs("fenlei")=fenlei
rs("text")=replace(text1,vbcrlf,"<br>　　")
rs("xm")=xm
rs("dianhua")=dianhua
rs("dizhi")=dizhi
rs("youbian")=youbian
rs("fbriqi")=date
rs("cishu")=1
rs.update
set conn=nothing
response.write "OK!"
response.write "<a href=""fabiaowz.htm"">發表成功返回</a>"
'response.end
%>
<script language=javascript>
<!--
	for(i=0;i<10000;i++);
	window.location.href="wenzhangxs.asp?id=0"
//-->
</script>
<%
response.end
%>