deal_writenews.asp

学生在线考试系统：ASP+VBScript 本人自己精心编码

<%
If Session("admin_id")<>"" Then
%>
<%
'连接数据库
Dim ip
ip=Request.ServerVariables("REMOTE_ADDR")
Dim conn,dbpath
dbpath=Server.MapPath("..\..\data\exam.mdb") 
Set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.oledb.4.0; Data Source=" & dbpath
'执行SQL查询并将查询结果放置在rlist中
Dim DateTimeStr
DateTimeStr=CSTR(NOW()+TIME_ADJUST/24)
Dim rlist
Set rlist=Server.CreateObject("ADODB.Recordset")
rlist.open "SELECT * FROM bbs",conn,2,2

rlist.AddNew
rlist("title")=request("title")
rlist("sender_name")=Session("admin_id")
rlist("send_cont")=request("cont")
rlist("send_time")=DateTimeStr
rlist("ip")=ip
rlist("read_num")=0
rlist("re_num")=0
rlist("prio")=True
rlist.Update
rlist.Close
 Response.Write("<meta http-equiv='refresh' content='3; url=../main.asp'>成功发布通知，3秒种后自动返回。")
%>
<%
else
Response.Write "<br><br><p align=center><b>Session超时！请重新以教师身份登录！</b> <a href='teacherlogin.htm'>现在登陆</a></p>"
End If
%>