wy_yzwyhhy_mod.aspx
来自「ASP.NET开发实战详解」· ASPX 代码 · 共 141 行
ASPX
141 行
<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.sqlclient" %>
<script runat="server">
dim Cnn as sqlconnection
dim cmd as sqlcommand
shared str3 as string
Sub Page_Load(Sender As Object, E As EventArgs)
dim sql as string
str3="<script language='javascript'>window.close()<"
str3+="/"
str3+="script>"
if Not IsPostBack then
dim theid as string=trim(request.querystring("id"))
dim datar as sqldatareader
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="select * from wy_owner_meeting where id=" & cint(theid)
cmd=new sqlcommand(sql,cnn)
datar=cmd.executereader()
if datar.read() then
ddate.text=Iif(IsDbNull(datar("ddate")),"",datar("ddate"))
title.text=Iif(IsDbNull(datar("title")),"",datar("title"))
addr.text=Iif(IsDbNull(datar("addr")),"",datar("addr"))
content.text=Iif(IsDbNull(datar("content")),"",datar("content"))
zc.text=Iif(IsDbNull(datar("zc")),"",datar("zc"))
jl.text=Iif(IsDbNull(datar("jl")),"",datar("jl"))
joiner.text=Iif(IsDbNull(datar("joiner")),"",datar("joiner"))
memo.text=Iif(IsDbNull(datar("memo")),"",datar("memo"))
Else
page.registerstartupscript("",getalertinfo("该成员信息不存在，可能已被删除！"))
Page.RegisterStartupScript("StartUp",str3)
End if
datar.close()
End if
End Sub
Sub Save_Click(Sender As Object, E As EventArgs)
dim theid as string=trim(request.querystring("id"))
dim DateStr as string=DDate.text
dim TitleStr as string=Title.text
dim AddrStr as string=Addr.text
dim Contentstr as string=Content.text
dim ZCstr as string=Zc.text
dim Jlstr as string=jl.text
dim Joinerstr as string=joiner.text
dim memostr as string=memo.text
dim sql as string
dim dataR as sqldatareader
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="update wy_owner_meeting set ddate='" & datestr & "',title='" & titlestr & "',addr='" & addrstr & "',content='" & contentstr & "',zc='" & zcstr & "',jl='" & jlstr & "',joiner='" & joinerstr & "',memo='" & memostr & "' where id=" & cint(theid)
cmd=new sqlcommand(sql,cnn)
cmd.executenonquery
cnn.close
Page.RegisterStartupScript("",str3)
End Sub
Function GetAlertInfo(byval str1 as string) as String
dim Str2 as String
str2="<script language='javascript'>alert('" & str1 & "')<"
str2+="/"
str2+="script>"
return trim(str2)
End Function
</script>
<html>
<head>
<title>会议信息修改</title>
<base target="_self" />
</head>
<body background="../images/2.jpg">
<form runat="server">
<br><p align="center"><font style="color:blue" face="隶书" size="6"><strong>会议信息修改</strong></font></p>
<font style="color:blue">当前会议ID：</font><font style="color:red"><%=request.querystring("id")%></font>
<hr>
<table id="search" cellspacing="1" cellpadding="0" width="80%" align="center" border="0">
<tbody>
<tr class="tr4">
<td height="40">
召开日期
<asp:TextBox class="input_text" id="ddate" runat="server" width="100"></asp:TextBox>
</td>
<td colspan=2>
会议主题
<asp:TextBox class="input_text" id="title" runat="server" width="305"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td colspan="3" height="40">
会议地点
<asp:TextBox class="input_text" id="addr" runat="server" width="500"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td width="34%" height="40">
主 持 人
<asp:TextBox class="input_text" id="zc" runat="server" width="100"></asp:TextBox>
</td>
<td width="33%">
记 录 员
<asp:TextBox class="input_text" id="jl" runat="server" width="100"></asp:TextBox>
</td>
<td width="33%"><br></td>
</tr>
<tr class="tr4">
<td colspan="3" height="40">
参加人员
<asp:TextBox class="input_text" id="joiner" runat="server" width="500"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td valign="top" colspan="3" height="90">
会议内容<br />
<asp:TextBox id="content" runat="server" width="575" TextMode="MultiLine" Rows="4"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td colspan="3" height="40">
备 注
<asp:TextBox class="input_text" id="memo" runat="server" width="500"></asp:TextBox>
</td>
</tr>
</tbody>
</table>
<br>
<center>
<asp:button class="input_button" id="SaveBtn" onclick="Save_Click" runat="server" text="修 改"></asp:button>
<br><br>
<asp:RequiredFieldValidator id="Requiredfieldvalidator1" runat="server" ErrorMessage="*" ControlToValidate="ddate">召开日期不可为空</asp:RequiredFieldValidator>
<br />
<asp:RequiredFieldValidator id="Requiredfieldvalidator2" runat="server" ErrorMessage="*" ControlToValidate="title">会议主题不可为空</asp:RequiredFieldValidator>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?