fccx_mod.aspx
来自「ASP.NET开发实战详解」· ASPX 代码 · 共 241 行
ASPX
241 行
<%@ 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
dim i as integer
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
Selgn.DataSource = CreateDataSource("gn")
Selgn.DataTextField = "name"
Selgn.DataValueField = "code"
Selgn.DataBind()
Selzx.DataSource = CreateDataSource("zx")
Selzx.DataTextField = "name"
Selzx.DataValueField = "code"
Selzx.DataBind()
Selcx.DataSource = CreateDataSource("cx")
Selcx.DataTextField = "name"
Selcx.DataValueField = "code"
Selcx.DataBind()
Selgg.DataSource = CreateDataSource("gg")
Selgg.DataTextField = "name"
Selgg.DataValueField = "code"
Selgg.DataBind()
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="select a.code,a.name,b.name as lp,c.name as lg,a.gg,a.cx,a.gn,a.zx,a.symj,sfmj,a.jzmj,fjmj,czmj,ptmj,shiymj,kzmj,snmj,a.memo from fc_cell a,fc_lp b,fc_lg c where c.lpcode=b.code and a.lgcode=c.code and a.code='" & theid & "'"
cmd=new sqlcommand(sql,cnn)
datar=cmd.executereader()
if datar.read() then
dim gnStr as string=Iif(IsDbNull(datar("gn")),"",datar("gn"))
dim zxstr as string=Iif(IsDbNull(datar("zx")),"",datar("zx"))
dim cxstr as string=Iif(IsDbNull(datar("cx")),"",datar("cx"))
dim ggstr as string=Iif(IsDbNull(datar("gg")),"",datar("gg"))
code.text=datar("code")
name.text=datar("name")
lg.text=datar("lg")
lp.text=datar("lp")
symj.text=Iif(IsDbNull(datar("symj")),"0",datar("symj"))
sfmj.text=Iif(IsDbNull(datar("sfmj")),"0",datar("sfmj"))
jzmj.text=Iif(IsDbNull(datar("jzmj")),"0",datar("jzmj"))
fjmj.text=Iif(IsDbNull(datar("fjmj")),"0",datar("fjmj"))
czmj.text=Iif(IsDbNull(datar("czmj")),"0",datar("czmj"))
ptmj.text=Iif(IsDbNull(datar("ptmj")),"0",datar("ptmj"))
shiymj.text=Iif(IsDbNull(datar("shiymj")),"0",datar("shiymj"))
kzmj.text=Iif(IsDbNull(datar("kzmj")),"0",datar("kzmj"))
snmj.text=Iif(IsDbNull(datar("snmj")),"0",datar("snmj"))
memo.text=Iif(IsDbNull(datar("memo")),"",datar("memo"))
for i=0 to selgn.items.count-1
if selgn.items(i).value=gnstr then
selgn.selectedindex=i
exit for
end if
next
for i=0 to selzx.items.count-1
if selzx.items(i).value=zxstr then
selzx.selectedindex=i
exit for
end if
next
for i=0 to selcx.items.count-1
if selcx.items(i).value=cxstr then
selcx.selectedindex=i
exit for
end if
next
for i=0 to selgg.items.count-1
if selgg.items(i).value=ggstr then
selgg.selectedindex=i
exit for
end if
next
Else
page.registerstartupscript("",getalertinfo("该单元信息不存在，可能已被删除！"))
Page.RegisterStartupScript("StartUp",str3)
End if
datar.close()
End if
End Sub
Function CreateDataSource(byval para as string) As ICollection
dim dtcmd as sqldataadapter
dim dset as dataset
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
select case trim(para)
case "gn"
dtcmd=new sqldataadapter("select code,name,type from fw_para where type='GN' order by code",cnn)
case "gg"
dtcmd=new sqldataadapter("select code,name,type from fw_para where type='GG' order by code",cnn)
case "cx"
dtcmd=new sqldataadapter("select code,name,type from fw_para where type='CX' order by code",cnn)
case "zx"
dtcmd=new sqldataadapter("select code,name,type from fw_para where type='ZX' order by code",cnn)
end select
dset=new dataset
dtcmd.fill(dset)
Dim dv As New DataView(dset.tables(0))
Return dv
cnn.close()
End Function
Sub Save_Click(Sender As Object, E As EventArgs)
dim theid as string=trim(request.querystring("id"))
dim ggstr=selgg.selecteditem.value
dim cxstr=selcx.selecteditem.value
dim gnstr=selgn.selecteditem.value
dim zxstr=selzx.selecteditem.value
dim symjstr=Iif((symj.text=""),"0",symj.text)
dim jzmjstr=Iif((jzmj.text=""),"0",jzmj.text)
dim sfmjstr=Iif((sfmj.text=""),"0",sfmj.text)
dim fjmjstr=Iif((fjmj.text=""),"0",fjmj.text)
dim czmjstr=Iif((czmj.text=""),"0",czmj.text)
dim shiymjstr=Iif((shiymj.text=""),"0",shiymj.text)
dim ptmjstr=Iif((ptmj.text=""),"0",ptmj.text)
dim snmjstr=Iif((snmj.text=""),"0",snmj.text)
dim kzmjstr=Iif((kzmj.text=""),"0",kzmj.text)
dim memostr=memo.text
dim sql as string
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="update fc_cell set gg='" & ggstr & "',cx='" & cxstr & "',gn='" & gnstr & "',zx='" & zxstr & "',symj=" & symjstr & ",sfmj=" & sfmjstr & ",jzmj=" & jzmjstr & ",fjmj=" & fjmjstr & ",czmj=" & czmjstr & ",ptmj=" & ptmjstr & ",shiymj=" & shiymjstr & ",kzmj=" & kzmjstr & ",snmj=" & snmjstr & ",memo='" & memostr & "' where code='" & 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>
<asp:label id="code" runat="server" forecolor="Red" font-bold="True"></asp:label>
<font style="color:blue">单元名称：</font>
<asp:label id="name" runat="server" forecolor="Red" font-bold="True"></asp:label>
<font style="color:blue">所属楼盘：</font>
<asp:label id="lp" runat="server" forecolor="Red" font-bold="True"></asp:label>
<font style="color:blue">所属楼阁：</font>
<asp:label id="lg" runat="server" forecolor="Red" font-bold="True"></asp:label>
<hr>
<table id="search" cellspacing="1" cellpadding="0" width="90%" align="center" border="0">
<tr class="tr4">
<td height="40" width="34%">
规 格
<asp:DropDownList id="Selgg" runat="server" width="90"></asp:DropDownList>
</td>
<td width="33%">
朝 向
<asp:DropDownList id="Selcx" runat="server" width="90"></asp:DropDownList>
</td>
<td width="33%">
功 能
<asp:DropDownList id="Selgn" runat="server" width="90"></asp:DropDownList>
</td>
</tr>
<tr class="tr4">
<td height="40" width="34%">
装 修
<asp:DropDownList id="Selzx" runat="server" width="90"></asp:DropDownList>
</td>
<td width="33%">
使用面积
<asp:TextBox class="input_text" id="symj" runat="server" width="90"></asp:TextBox>
</td>
<td width="33%">
建筑面积
<asp:TextBox class="input_text" id="jzmj" runat="server" width="90"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td width="34%" height="40">
收费面积
<asp:TextBox class="input_text" id="sfmj" runat="server" width="90"></asp:TextBox>
</td>
<td width="33%">
附加面积
<asp:TextBox class="input_text" id="fjmj" runat="server" width="90"></asp:TextBox>
</td>
<td width="33%">
出租面积
<asp:TextBox class="input_text" id="czmj" runat="server" width="90"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td width="34%" height="40">
实用面积
<asp:TextBox class="input_text" id="shiymj" runat="server" width="90"></asp:TextBox>
</td>
<td width="33%">
平台面积
<asp:TextBox class="input_text" id="ptmj" runat="server" width="90"></asp:TextBox>
</td>
<td width="33%">
室内面积
<asp:TextBox class="input_text" id="snmj" runat="server" width="90"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td height="40" width="34%">
空置面积
<asp:TextBox class="input_text" id="kzmj" runat="server" width="90"></asp:TextBox>
</td>
<td width="33%" colspan=2>
备 注
<asp:TextBox class="input_text" id="memo" runat="server" width="90"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td valign="bottom" align="middle" colspan="3" height="70">
<asp:button class="input_button" id="SaveBtn" onclick="Save_Click" runat="server" text="保 存"></asp:button>
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?