in_new.asp

来自「一、一般游客： 1.查看论坛资料 二、注册会员： 1.修改本人资料 」· ASP 代码 · 共 28 行

<%
if request.Cookies("user")="" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<!--#include file="conn.asp" -->
<%
	set rsst=server.createobject("adodb.recordset")
	sqltext="select * from bbs"
	rsst.open sqltext,conn,3,3
	'添加一条记录到数据库
		rsst.addnew
		'必添项
		rsst("bbs_top")=request("txt1")
		rsst("bbs_content")=request("txt2")
		rsst("bbs_jb")=request("txt3")
        rsst("bbs_writer")=request("txt4")
        rsst("bbs_date")=date()
		rsst.update
		rsst.close
		conn.close
		
		response.write "<script language=JavaScript>{window.alert('发表成功！');window.location.href='right.asp'}</script>"
	    response.end
%>