fabiaowz.asp

大家好

<%@ LANGUAGE="VBSCRIPT"%>
<%
biaoti=request("biaoti")
fbiaoti=request("fbiaoti")
bm=request("bm")
mail=request("mail")
fenlei=request("fenlei")
text1=replace(request("text1"),vbcrlf,"<br>")
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")
dbpath=server.mappath("lovelife.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
rs.open "loveshenghuo",conn,2,2


if rs.eof then
	response.write "数据库为空!"
else
rs.addnew
rs("biaoti")=biaoti
rs("fbiaoti")=fbiaoti
rs("bm")=bm
rs("mail")=mail
rs("fenlei")=fenlei
rs("text")=text1
rs("xm")=xm
rs("dianhua")=dianhua
rs("dizhi")=dizhi
rs("youbian")=youbian
rs.update
set conn=nothing
end if
%>
<script language=javascript>
<!--
	alert("发表成功！");
	for(i=0;i<10000;i++);
	window.location.href="wenzhangxs.asp?id=0"
//-->
</script>
<%
response.end
%>