saveliuyan.asp

留言版,可留言,管理留言,添加,删除留言

<style type="text/css">
<!--
body {
	background-image: url(33b7252a3e6e983f5243c146.jpg);
}
-->
</style><%@ Language=VBScript %>
<%
'response.Write request("userimg")

dim rs
dim f
if trim(request("username")) = "" then
	f = true
  response.write "“作者”一定要填写 "
  
end if
if trim(request("title")) = "" then
	f = true
  response.write "“主题”一定要填写 "
   
end if
if trim(request("content")) = "" then
	f = true
  response.write "“内容”一定要填写 "
 
  end if
if f then
	response.write errmsg
	response.Write"<p align=center><a href=liuyanbiao.asp>返回</a></p>"
else
	dim username,title,content,publish,userimg
	publishtime=now()
	username=Request("username")
	title=request("title")
	content=Request("Content")
	userimg=request("userimg")
	dim checksql
	set rs=server.CreateObject("ADODB.RecordSet")
	set conn=server.createobject("ADODB.CONNECTION")
	connstr = "DBQ=" + server.mappath("database1.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
	conn.Open connstr
	checksql="select * from liuyanban where username='"&username&"' "
	set rs=conn.execute(checksql)
	
 	
	checksql="insert into liuyanban(username,title,content,publishtime,userimg) values('"&username&"','"&title&"','"&content&"','"&publishtime&"','"&userimg&"')"
	set rs=conn.Execute(checksql)
	if err.number <> 0 then
response.write "无法保存数据"
	else	
		response.write"提交成功！"
		response.Write"<p align=center><a href=liuyanbiao.asp>返回留言板  </a><a href=index.asp> 返回主页</a></p>"
		
	end if
	end if
set rs=nothing 
set conn=nothing

%>