in_reto.asp

来自「ASPkaifa 11111111111111111111111」· ASP 代码 · 共 26 行

<!--#include file="conn.asp" -->

<%
if request("txt2")="" or request("txt3")="" then
response.Write("未知来源！请登陆后重试！")
response.End()
end if
	set rsst=server.createobject("adodb.recordset")
	sqltext="select * from bbs"
	rsst.open sqltext,conn,3,3
	'添加一条记录到数据库
		rsst.addnew
		'必添项
		rsst("bbs_content")=request("txt1")
		rsst("bbs_toid")=request("txt2")
        rsst("bbs_writer")=request("txt3")
        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
%>