📄 zhts.aspx
字号:
<%@ 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
BindGrid()
End If
End Sub
Sub Save_Click(Sender As Object, E As EventArgs)
dim dycode as string
dim dyStr as string=dy.text
dim tsrStr as string=tsr.text
dim tsdatestr as string=tsdate.text
dim jdrstr as string=jdr.text
dim tslbstr as string=tslb.text
dim yjjstr as string=yjj.selecteditem.value
dim tsnrstr as string=tsnr.text
dim datar as sqldatareader
dim sql as string
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
sql="select * from fc_cell where name='" & trim(dystr) & "'"
cmd=new sqlcommand(sql,cnn)
cnn.open
datar=cmd.executereader()
if datar.read() then
dycode=datar("code")
else
page.registerstartupscript("",getalertinfo("该单元不存在，数据无法保存！"))
exit sub
end if
datar.close
sql="insert into zh_zhts(cellcode,tsr,tsdate,jdr,tslb,yjj,tsnr) values('" & dycode & "','" & tsrstr & "','" & tsdatestr & "','" & jdrstr & "','" & tslbstr & "','" & yjjstr & "','" & tsnrstr & "')"
cmd=new sqlcommand(sql,cnn)
cmd.executeNonQuery
cnn.close()
bindgrid()
call cleardata()
page.registerstartupscript("",getalertinfo("数据保存成功！"))
End Sub
Sub Clear_Click(Sender As Object, E As EventArgs)
call cleardata()
End Sub
sub cleardata()
dy.text=""
tsr.text=""
tsdate.text=""
jdr.text=""
tslb.text=""
tsnr.text=""
end sub
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 i as integer
dim sumrecord as integer
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
str2="select count(*) as nums from zh_zhts"
cmd=new sqlcommand(str2,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 zh_zhts.id,cellcode,name,tsr,tsdate,jdr,tslb,case yjj when '1' then '是' when '0' then '否' end as yjj,tsnr from fc_cell,zh_zhts where cellcode=fc_cell.code order by zh_zhts.id desc"
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(8).Controls(0)
LinkButton.Attributes.Add("onclick","javascript:openwin('zhts_mod.aspx?id=" & Datagrid1.Items(i).Cells(0).text & "')")
next
cnn.close()
End Sub
Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
MultiView1.ActiveViewIndex = 0
End Sub
Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
MultiView1.ActiveViewIndex = 1
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 zh_zhts where id=" & 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:500px;dialogWidth:750px;unadorne:yes;help:no");
location.reload();
}
</script>
</head>
<body leftmargin="5" topmargin="5" background="../images/1.jpg">
<form runat="server">
<asp:Image ID="Image2" runat="server" ImageUrl="../images/pic1.gif" />
<asp:LinkButton ID="LinkButton1" Font-Bold="True" Font-Size="X-Small" runat="server" OnClick="LinkButton1_Click" CausesValidation="False">住户投诉查询</asp:LinkButton>
<asp:Image ID="Image1" runat="server" ImageUrl="../images/pic1.gif" />
<asp:LinkButton ID="LinkButton2" runat="server" Font-Bold="True" Font-Size="X-Small" OnClick="LinkButton2_Click" CausesValidation="False">住户投诉录入</asp:LinkButton>
<hr />
<asp:MultiView ID="MultiView1" runat="server" ActiveViewIndex="0">
<asp:View ID="View1" runat="server">
<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="id" visible="false" HeaderText="序号"></asp:BoundColumn>
<asp:BoundColumn DataField="name" HeaderText="单元名称"></asp:BoundColumn>
<asp:BoundColumn DataField="tsr" HeaderText="投诉人"></asp:BoundColumn>
<asp:BoundColumn DataField="tsdate" HeaderText="投诉日期" DataFormatString="{0:yyyy-MM-dd}"></asp:BoundColumn>
<asp:BoundColumn DataField="jdr" HeaderText="接待人"></asp:BoundColumn>
<asp:BoundColumn DataField="tslb" HeaderText="投诉类别"></asp:BoundColumn>
<asp:BoundColumn DataField="tsnr" HeaderText="投诉内容"></asp:BoundColumn>
<asp:BoundColumn DataField="yjj" 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>
</asp:View>
<asp:View ID="View2" runat="server">
<br />
<table id="search" cellspacing="1" cellpadding="0" width="80%" align="center" border="0">
<tbody>
<tr class="tr4">
<td width="34%" height="40">
单元名称
<asp:TextBox class="input_text" id="dy" runat="server" width="120"></asp:TextBox>
</td>
<td width="33%">
投 诉 人
<asp:TextBox class="input_text" id="tsr" runat="server" width="120"></asp:TextBox>
</td>
<td width="33%">
投诉日期
<asp:TextBox class="input_text" id="tsdate" runat="server" width="120"></asp:TextBox>
</td>
</tr>
<tr>
<td width="34%" height="40">
接 待 人
<asp:TextBox class="input_text" id="jdr" runat="server" width="120"></asp:TextBox>
</td>
<td width="33%">
投诉类别
<asp:TextBox class="input_text" id="tslb" runat="server" width="120"></asp:TextBox>
</td>
<td width="33%">
是否解决
<asp:DropDownList class="input_text" id="yjj" runat="server" width="120">
<asp:ListItem Value="0" selected="true">尚未解决</asp:ListItem>
<asp:ListItem Value="1">已解决</asp:ListItem>
</asp:DropDownList>
</td>
</tr>
<tr>
<td colspan="3" height="50">
投诉内容<br />
<asp:TextBox id="tsnr" runat="server" width="650" TextMode="MultiLine" Rows="5"></asp:TextBox>
</td>
</tr>
<tr class="tr4">
<td valign="bottom" align="middle" colspan="3" height="130">
<asp:button class="input_button" id="SaveBtn" onclick="Save_Click" runat="server" text="保 存"></asp:button>
<asp:button class="input_button" id="ClearBtn" onclick="Clear_Click" runat="server" text="清 空"></asp:button>
<br />
<asp:RequiredFieldValidator id="Requiredfieldvalidator1" runat="server" ErrorMessage="*" ControlToValidate="dy">单元名称不可为空</asp:RequiredFieldValidator><br />
<asp:RequiredFieldValidator id="Requiredfieldvalidator2" runat="server" ErrorMessage="*" ControlToValidate="tsr">投诉人不可为空</asp:RequiredFieldValidator><br>
<asp:RequiredFieldValidator id="Requiredfieldvalidator3" runat="server" ErrorMessage="*" ControlToValidate="tsnr">投诉内容不可为空</asp:RequiredFieldValidator>
</td>
</tr>
</tbody>
</table>
</asp:View>
</asp:MultiView>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -