savearticle.asp

呵呵

<%
if request("name")="访客" then 
response.write "错误提示:未输入名字!"
response.end
end if
if request("content")="内容" then 
response.write "错误提示:未输入内容!"
response.end
end if
%>

<%
if fid = 1 then
response.write "错误提示:请勿重复提交!" 
response.end
else
%>
<!--#include file="articleconn.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
fid = 1
dim email
dim name
dim oicq
dim content
dim sql
dim rs
if request("oicq")="Oicq" then
   oicq=""
else
oicq=htmlencode2(request("oicq"))
end if
if request("email")="E-mail" then
   email=""
else
   email=htmlencode2(request("email"))
end if
content=htmlencode2(request("content"))
name=htmlencode2(request("name"))


set rs=server.createobject("adodb.recordset")
sql="select * from learning where (articleid is null)" 

rs.open sql,conn,1,3
rs.addnew

rs("email")=email
rs("oicq")=oicq
rs("content")=content
rs("name")=name
rs("face")=request("face")
rs.update

rs.close
set rs=noting
conn.close
set conn=nothing
response.redirect "index.asp"
end if
%>