摆脱各位了,摆脱各位了,摆脱各位了,摆脱各位了,请指错。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<center>
<%
dim title,fbr,text,Fbdate,SQL
if request.form("title")="" or request.form("fbr")="" or request.form("text")="" then
response.write"<center>您没有输入完全</center>"
else
title=request.form("title")
fbr=request.form("fbr")
text=request.form("text")
end if
conn = "DBQ=" + "c:\Inetpub\wwwroot\update\PageUpdata.mdb" + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
SQL= "INSERT INTO xxtbl(title,text1,fbr) VALUES (title,text,fbr)"
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1
if err.number>0 then
response.write "新闻发布失败"
else
response.write"新闻发布成功"
response.write"<a href='INDEX.asp'>返回首页</a>"
response.write"<a href='jwxwfb.htm'>继续发布</a>"
end if
%>
</center>
</body>
</html>