📄 reg.aspx
字号:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<script Language="VB" Runat="server">
Sub Page_Load(Sender As Object, E as EventArgs)
if session("master")="" then
response.redirect("cancel.aspx")
end if
cal1.visible=false
textbox1.text=request.querystring("id")
textbox1.enabled=false
textbox5.enabled=false
textbox5.text="保密状态"
textbox3.text=now()
textbox3.enabled=false
label1.text="欢迎您进行预约登记，请注意，我们会记录您的可信度，希望你登记以后及时取资料……"
end sub
Sub clicks1(Sender As Object, E As EventArgs)
cal1.visible=true
end sub
Sub SelectedDate(ByVal sender As Object, ByVal e As EventArgs)
textbox4.text = Cal1.SelectedDate.ToShortDateString
End Sub
Sub onclick1(Sender As Object, E As EventArgs)
if textbox1.text="" or textbox2.text="" or textbox4.text="" or textbox3.text="" or textbox5.text="" then
label1.text=" 你好粗心，你一定有项目没有填写完整！！"
else
dim conn as new oledbconnection()
dim cmd as new oledbcommand()
conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & server.MapPath("database.mdb")
conn.open()
cmd.connection=conn
cmd.commandtype=commandtype.text
cmd.commandtext=" insert into regbook(id,name,time1,time2,credit,content) values ('" + textbox1.text + "','" + textbox2.text +"' ,'" + now() + "','" + textbox4.text +"','"+ textbox5.text +"','" + textbox6.text +"')"
cmd.executenonquery()
conn.close()
textbox1.text=""
textbox2.text=""
textbox4.text=""
textbox3.text=""
textbox6.text=""
textbox5.text=""
label1.text="预约成功！记得及时来取资料^_^！"
end if
end sub
</script>
<html>
<head>
<title>欢迎使用音像资料管理系统</title>
</head>
<body >
<link href="css/class.css" type=text/css rel=stylesheet>
<form id="Form1" method="post" runat="server">
<font size=6><center>致远工作室音像资料管理系统</center></font>
<table border="1" align="center" bordercolor="blue">
<tr>
<td>编 号：</td><td><asp:textbox id="textbox1" runat="server"/></td>
</tr>
<tr>
<td>预约人姓名：</td><td><asp:textbox id="textbox2" runat="server"/></td>
</tr>
<tr>
<td>登记日期：</td><td><asp:textbox id="textbox3" runat="server"/></td>
</tr>
<tr>
<td>预约日期：</td><td><asp:textbox id="textbox4" runat="server"/> <asp:linkbutton id="linkbutton1" text="选择日期" onclick="clicks1" runat="server"/></td>
</tr>
<tr>
<td></td><td><asp:calendar id="cal1" OnSelectionChanged="SelectedDate" runat="server"/></td>
</tr>
<tr>
<td>您的可信度：</td><td><asp:textbox id="textbox5" runat="server"/><td>
</tr>
<tr>
<td>备注：</td><td><asp:textbox id="textbox6" textmode="multiline" columns="30" rows="10" runat="server"/></td>
</tr>
<tr>
<td>
<asp:button id="button1" text=" 确 定 " onclick="onclick1" runat="server"/></td>
<td align="center">
<asp:button id="button2" text=" 取 消 " runat="server"/></td>
</tr>
</table>
<br><center><a href="default.aspx">返回管理系统</a>
<hr>
<center>
<asp:label id="label1" runat="server"/>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -