📄 zhts_mod.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
shared str3 as string
Sub Page_Load(Sender As Object, E As EventArgs)
dim sql as string
dim typestr as string
dim zjtypestr 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 zh_zhts.id,cellcode,name,tsr,tsdate,jdr,tslb,yjj,tsnr from fc_cell,zh_zhts where cellcode=fc_cell.code and zh_zhts.id=" & theid
cmd=new sqlcommand(sql,cnn)
datar=cmd.executereader()
if datar.read() then
dim yjjstr as string=Iif(IsDbNull(datar("yjj")),"",datar("yjj"))
dy.text=Iif(IsDbNull(datar("name")),"",datar("name"))
tsr.text=Iif(IsDbNull(datar("tsr")),"",datar("tsr"))
tsdate.text=Iif(IsDbNull(datar("tsdate")),"",datar("tsdate"))
jdr.text=iif(isdbnull(datar("jdr")),"",datar("jdr"))
tslb.text=Iif(IsDbNull(datar("tslb")),"",datar("tslb"))
tsnr.text=Iif(IsDbNull(datar("tsnr")),"",datar("tsnr"))
select case yjjstr
case "0"
yjj.selectedindex=0
case "1"
yjj.selectedindex=1
end select
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 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 sql as string
cnn=new sqlconnection(configurationsettings.appsettings("connection"))
cnn.open()
sql="update zh_zhts set tsr='" & tsrstr & "',tsdate='" & tsdatestr & "',jdr='" & jdrstr & "',tslb='" & tslbstr & "',yjj='" & yjjstr & "',tsnr='" & tsnrstr & "' where id=" & 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="90%" align="center" border="0">
<tbody>
<tr class="tr4">
<td width="34%" height="40">
单元名称
<asp:TextBox class="input_text" id="dy" enabled="false" 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">尚未解决</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>
<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>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -