代码又错误,请指正,谢谢
红色区域,是我刚添加上的,以前没有的时候还好好的能正常运行,添加上之后就不能用了,我想知道是不是错了,浏览器光提示要访问的网页有问题
<%
'获取提交信息
title=request("arti_title")
kind=request("kind")
author=request("arti_author")
from=request("arti_from")
wen=request("wen")
'判断是否为空
if title<>"" and author<>"" and from<>"" and wen<>"" then
set conn=server.createobject("adodb.connection")
'和数据库建立连接
conn.open("driver={microsoft access driver (*.mdb)};dbq="&server.mappath("person.mdb"))
判断是否已经有此文章
checksql="select * from atri where 文章列表='"&title&"'"
set rs=conn.execute(checksql)
if not rs.eof then
response.write("文章已经有了")
response.write("<a href='index.asp'>返回</a>")
response.end
end if
'分类不同插入的数据库也不一样
if kind="心情故事" then
sql="insert into story(文章列表,更新时间,分类) values('"&title&"',date(),'"&kind&"')"
elseif kind="软件网络" then
sql="insert into netsoft(文章列表,更新时间,来自,作者,分类) values('"&title&"',date(),'"&from&"','"&author&"','"&kind&"')"
elseif kind="电脑硬件" then
sql="insert into arti(文章列表,更新时间,来自,作者,分类) values('"&title&"',date(),'"&from&"','"&author&"','"&kind&"')"
end if
conn.execute(sql)
conn.close
'建立文件把正文放到此文件中
filepath=server.mappath("文章\"&title&".asp")
set fso=server.createobject("scripting.filesystemobject")
set file=fso.createtextfile(filepath)
wen=replace(wen,vbCrLf,"<p>")
file.writeline(wen)
else
response.write("字段不能为空白")
response.redirect("arti_write.asp")
end if
response.redirect("index.asp")
%>
[[italic] 本帖最后由 sofine888 于 2008-1-10 13:05 编辑 [/italic]]
