titlenew.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 33 行

<!-- #include virtual="/kjasp/func/DB.fun" -->

<%
Name=Request("Name")
Email=Request("Email")
Subject=Request("Subject")
Words=Request("Words")

' 保留下来，以免重新输入
Session("Name") = Name
Session("Email") = Email

If Subject=Empty Or Words=Empty Or Name=Empty Or Email=Empty Then
   Msg = "栏位留白，不接受！"
   Session("Subject") = Subject
   Session("Words") = Words
Else
   Set rs = GetMdbRecordset( "news.mdb", "Titles" )
   rs.AddNew
   rs("Name") = Name
   rs("Email") = Email
   rs("Subject") = Subject
   rs("Words") = Words
   rs("Number") = 0
   rs.Update
   Msg = "您的讨论主题已加入讨论组中！"
   Session("Subject") = ""
   Session("Words") = ""
End If

Response.Redirect "Title.asp?Msg=" & Msg 
%>