📄 post.aspx
字号:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.Oledb" %>
<Script language="VB" runat="Server">
Sub Page_load(Sender as object,e as eventargs)
Dim Id as Long
Dim title As string
title=Request("subject")
Id=Request("ID")
If title<>"" then
subject.text="Re" & title
subject.readonly=True
End If
parent.text=Id
End Sub
Sub sent(sender as object,e as eventargs)
If page.isvalid Then
Dim conn As OledbConnection '声明一个OledbConnection对象
conn=New OledbConnection() '建立一个oledbConnection对象
'设定连接字符串ConnectionString
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("discuss.mdb")
conn.Open()
Dim Cmd As oledbCommand '声明一个Command对象
'建立Command对象，并且指定SQL语句
Dim SQLStr As string
SQLStr="Select max(ID) as id From content"
Cmd=New OledbCommand(SQLStr,conn)
Dim rd As OledbDataReader '声明一个DataReader对象
Dim maxid As integer '记录当前最大记录数
rd=Cmd.ExecuteReader() '执行SQL指令，并将其结果设定给DataReader
If Not IsDBNull(rd.Read()) then
maxid=rd.Item("id")+1
Else
maxid=1
End If
rd.Close()
'生成SQLstr字符串
SQLstr="Insert into content values(" & maxid & ",'"
SQLstr &=subject.text & "','" & send.text & "','"
SQLstr &=Email.text & "','" & body.text & "','"
SQLstr &=now & "'," & parent.text &")"
cmd=New OledbCommand(SQLstr,conn)
Cmd.ExecuteNonQuery()
Conn.close()
Response.Write("添加成功!")
'清空原有表单
subject.text=""
send.text=""
Email.text=""
body.text=""
parent.text=""
End If
End sub
</script>
<Html>
<head>
<Title>欢迎张贴新文章!</Title>
</Head>
<Body>
<Form Runat="Server">
文章标题:<asp:textbox id="subject" runat="Server" />
<asp:RequiredFieldValidator id="valid1"
ControlToValidate="subject" runat="Server">(必要栏)
</asp:RequiredFieldValidator><p>
内容：<p>
<asp:TextBox id="Body" textmode="MultiLine" Rows=5
Width="80%" runat="Server"/>
<asp:RequiredFieldValidator id="valid3"
ControlToValidate="body" runat="Server">(必要栏)
</asp:RequiredFieldValidator><p>
<asp:RegularExpressionValidator id="Regular1" Runat="server"
ControlToValidate="Body"
ValidationExpression=".{10,255}">
输入的字符数在10～255之间!
</asp:RegularExpressionValidator><p>
签下您的大名：<asp:textbox id="Send" runat="Server" />
<asp:RequiredFieldValidator id="valid2"
ControlToValidate="Send" runat="Server">
嘿嘿，名字不能少哦!
</asp:RequiredFieldValidator><p>
您的邮件地址:<asp:textbox id="Email" runat="Server" />
<asp:RegularExpressionValidator id="Regular2" Runat="server"
ControlToValidate="Email"
ValidationExpression=".{1,}@.{1,}\..{1,}">
请输入有效的电子邮件地址
</asp:RegularExpressionValidator><p>
<asp:Button id="sub" text="张贴"
Onclick="sent" Runat="Server"/>
<asp:Textbox id="parent" text="0" visible=false Runat="Server"/>
</Form>
</Body>
</Html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -