checknews.asp

一个通讯录

<!--#include file="conn.asp"-->
<%
dim name
dim news
dim sql
name=request("name")
news=request("news")
if name="" then
	response.write"<script language='javascript'>alert('名字不能为空呀！')</script>"
	response.write"<center><a href=# onclick='history.go(-1)'><font color=#ff0000 size=2>请点击返回</font></a></center>"
	response.end
end if
if news="" then
	response.write"<script language='javascript'>alert('内容不能为空呀！')</script>"
	response.write"<center><a href=# onclick='history.go(-1)'><font color=#ff0000 size=2>请点击返回</font></a></center>"
	response.end
end if
sql="select * from news"
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("news")=news
rs("time")=now
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language='javascript'>" & chr(13)
response.write "alert('你的留言发表完成！');" & Chr(13)
response.write "window.document.location.href='news.asp';"&Chr(13)
response.write "</script>" & Chr(13)
response.end
%>