fccx.aspx
来自「ASP.NET开发实战详解」· ASPX 代码 · 共 226 行
ASPX
226 行
<%@ 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
Sub Page_Load(Sender As Object, E As EventArgs)
If Not IsPostBack Then
If Session("curruser") = "" Then
Response.Redirect("../index.aspx")
End If
Sellp.DataSource = CreateDataSource("lp")
Sellp.DataTextField = "name"
Sellp.DataValueField = "code"
Sellp.DataBind()
Sellg.DataSource = CreateDataSource("lg")
Sellg.DataTextField = "name"
Sellg.DataValueField = "code"
Sellg.DataBind()
Sellt.DataSource = CreateDataSource("lt")
Sellt.DataTextField = "name"
Sellt.DataValueField = "code"
Sellt.DataBind()
BindGrid()
End If
End Sub
Sub ChangeLP(sender As Object, e As EventArgs)
Sellg.DataSource = CreateDataSource("lg")
Sellg.DataTextField = "name"
Sellg.DataValueField = "code"
Sellg.DataBind()
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 "lp"
dtcmd=new sqldataadapter("select code,name from fc_lp order by code",cnn)
case "lg"
dtcmd=new sqldataadapter("select code,name from fc_lg where lpcode='" & trim(sellp.selecteditem.value) & "' order by code",cnn)
case "lt"
dtcmd=new sqldataadapter("select code,name,type from fw_para where type='LT' 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 BindGrid()
dim dataR as sqldatareader
dim dtcmd as sqldataadapter
dim dt as new datatable
dim MaxPage as integer '计算最大页数
dim str2 as string
dim Str1 as string
dim lgstr as string=sellg.selecteditem.value
dim ltstr as string=sellt.selecteditem.value
dim cnumstr as string=cnum.text
dim i as integer
dim sumrecord as integer
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
if cnumstr="" or not isnumeric(cnumstr) then
str2=""
else
if cint(cnumstr)<10 then
str2="0" & cstr(cint(cnumstr))
else
str2=cint(cnumstr)
end if
end if
if trim(str2)<>"" then
str2=" and substring(a.code,7,2)='" & trim(str2) & "' "
end if
str1="select count(*) as nums from fc_cell a where lgcode='" & trim(lgstr) & "' and ltcode='" & trim(ltstr) & "'" & str2
cmd=new sqlcommand(str1,cnn)
cnn.open()
datar=cmd.executereader()
if datar.read() then
if datar("nums").tostring()="0" then
msg.text=""
else
msg.text="合计：记录数 " & datar("nums").tostring()
end if
end if
datar.close()
str1="select a.code,a.name,b.name as lp,c.name as lg,(select name from fw_para where type='gg' and code=a.gg) as gg,(select name from fw_para where type='cx' and code=a.cx) as cx,(select name from fw_para where type='gn' and code=a.gn) as gn,(select name from fw_para where type='zx' and code=a.zx ) as zx,a.symj,sfmj,a.jzmj,fjmj,czmj,ptmj,shiymj,kzmj,snmj from fc_cell a,fc_lp b,fc_lg c where c.lpcode=b.code and a.lgcode=c.code and lgcode='" & trim(lgstr) & "' and ltcode='" & trim(ltstr) & "' " & str2 & " order by a.code"
dtcmd=new sqldataadapter(str1,cnn)
dtcmd.fill(dt)
if (dt.defaultview.count mod datagrid1.pagesize)>0 then
maxpage=dt.defaultview.count \datagrid1.pagesize+1
else
maxpage=dt.defaultview.count \datagrid1.pagesize
end if
do while datagrid1.currentpageindex>0
if maxpage<datagrid1.currentpageindex+1 then
datagrid1.currentpageindex=datagrid1.currentpageindex-1
else
exit do
end if
loop
datagrid1.datasource=dt
datagrid1.databind()
sumrecord=datagrid1.Items.count
for i=0 to sumrecord-1
dim LinkButton=Datagrid1.Items(i).Cells(12).Controls(0)
LinkButton.Attributes.Add("onclick","javascript:openwin('fccx_mod.aspx?id=" & Datagrid1.Items(i).Cells(0).text & "')")
next
cnn.close()
End Sub
Sub Query_Click(Sender As Object, E As EventArgs)
bindgrid()
end sub
Sub Grid1_Mod(Sender as object,E as DataGridCommandEventArgs)
dim codestr as string=E.Item.Cells(0).Text
dim sql as string
dim url as string
if CType(e.CommandSource,LinkButton).CommandName="Delete" then
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="delete from fc_cell where code='" & codestr & "'"
cmd=new sqlcommand(sql,cnn)
cmd.executeNonQuery
cnn.close()
bindgrid()
end if
End Sub
Sub Grid1_PageIndexChanged(Sender As Object, E As DataGridPageChangedEventArgs)
datagrid1.CurrentPageIndex = e.NewPageIndex
BindGrid()
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>
<link href="../Main.css" type="text/css" rel="stylesheet" />
<script language="javascript">
function openwin(src)
{
var vDialog=null;
vDialog=showModalDialog(src,window,"status:no;resizable:off;dialogHeight:450px;dialogWidth:700px;unadorne:yes;help:no");
location.reload();
}
</script>
</head>
<body leftmargin="0" topmargin="0" background="../images/1.jpg">
<form runat="server">
<table id="search" cellspacing="1" cellpadding="0" width="95%" align="center" border="0">
<tr class="tr4">
<td height="40" width="24%">
楼 盘
<asp:DropDownList class="input_text" id="Sellp" runat="server" width="110" OnSelectedIndexChanged="ChangeLP" autopostback="true"></asp:DropDownList>
</td>
<td width="24%">
楼 阁
<asp:DropDownList class="input_text" id="Sellg" runat="server" width="110"></asp:DropDownList>
</td>
<td width="24%">
楼 梯
<asp:DropDownList class="input_text" id="Sellt" runat="server" width="110"></asp:DropDownList>
</td>
<td width="15%">
层 数
<asp:TextBox class="input_text" id="cnum" runat="server" width="50"></asp:TextBox>
</td>
<td width="13%" align=center>
<asp:button id="QueryBtn" onclick="Query_Click" runat="server" text="查 询"></asp:button>
</td>
</tr>
</table>
<table class="" id="search" cellspacing="1" cellpadding="0" width="95%" align="center" border="0">
<tbody>
<tr class="tr2">
<td style="PADDING-LEFT: 5px" height="25">
<asp:Label id="Msg" runat="server" forecolor="red"></asp:Label></td>
</tr>
<tr>
<td style="PADDING-LEFT: 5px" height="25">
<asp:DataGrid id="DataGrid1" runat="server" width="100%" OnPageIndexChanged="Grid1_PageIndexChanged" AllowSorting="True" AllowPaging="True" Font-Names="verdana" bordercolor="Black" cellpadding="2" font-name="verdana" font-size="8pt" headerstyle-backcolor="#F8FAFC" OnItemCommand="Grid1_Mod" AutoGenerateColumns="False" PageSize="10">
<HeaderStyle font-bold="True" horizontalalign="Center" verticalalign="Middle" backcolor="#F8FAFC"></HeaderStyle>
<PagerStyle nextpagetext="下一页" font-names="宋体" font-bold="True" prevpagetext="上一页" horizontalalign="Right" forecolor="Blue" mode="NumericPages"></PagerStyle>
<EditItemStyle backcolor="#E9F0F8"></EditItemStyle>
<Columns>
<asp:BoundColumn DataField="code" visible="false" HeaderText="单元编号"></asp:BoundColumn>
<asp:BoundColumn DataField="name" HeaderText="单元名称"></asp:BoundColumn>
<asp:BoundColumn DataField="lp" HeaderText="所属楼盘"></asp:BoundColumn>
<asp:BoundColumn DataField="lg" HeaderText="所属楼阁"></asp:BoundColumn>
<asp:BoundColumn DataField="gg" HeaderText="规格"></asp:BoundColumn>
<asp:BoundColumn DataField="cx" HeaderText="朝向"></asp:BoundColumn>
<asp:BoundColumn DataField="gn" HeaderText="功能"></asp:BoundColumn>
<asp:BoundColumn DataField="zx" HeaderText="装修标准"></asp:BoundColumn>
<asp:BoundColumn DataField="symj" HeaderText="使用面积"></asp:BoundColumn>
<asp:BoundColumn DataField="sfmj" HeaderText="收费面积"></asp:BoundColumn>
<asp:BoundColumn DataField="jzmj" HeaderText="建筑面积"></asp:BoundColumn>
<asp:BoundColumn DataField="fjmj" HeaderText="附加面积"></asp:BoundColumn>
<asp:ButtonColumn Text="修改" HeaderText="修改" CommandName="modiinfo"></asp:ButtonColumn>
<asp:ButtonColumn Text="删除" HeaderText="删除" CommandName="Delete"></asp:ButtonColumn>
</Columns>
</asp:DataGrid>
</td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?