📄 modify_bcht.asp
字号:
<!--#include file="css.asp"-->
<!--#include file="conn.asp"-->
<%
strID=Trim(Request.QueryString("id"))
strUSN=Session("usn")
strPWD=Session("pwd")
if strUSN<>"" and strPWD<>"" then
strSQL="Select * from AdminLogin Where usn='" & Trim(strusn) & "' and pwd='" & Trim(strpwd) & "'"
set rs=Server.CreateObject("ADODB.RECORDSET")
rs.Open strsql,con,1,3
if rs.RecordCount>0 then
rs.Close
strSQL="Select * from BCHT where id="& strID & ""
'Response.Write strSQL
rs.Open strsql,con,3,3
if rs.RecordCount>0 then
%>
<body bgcolor=#0066FF>
<center>
<form action="ModifyCheck_BCHT.asp" ID="Form1">
<table bgcolor=#ffffcc ID="Table1" width=75%>
<tr><td colspan=2 align=center><font size=3 color=red>修改信息表</font></td></tr>
<tr><td>客户编号</td><td bgcolor=#99cc00><input type=text readonly value="<%= rs("KHBH")%>" name="KHBH" size=60></td></tr>
<tr><td>中心地址</td><td><input type=text value="<%= rs("ZXDZ") %>"name="ZXDZ" size=60></td></tr>
<tr><td>申请人</td><td><input type=text value="<%= rs("SQR") %>" name="SQR" size=60></td></tr>
<tr><td>申请日期</td><td><input type=text value="<%= rs("SQRQ") %>" name="SQRQ" size=60></td></tr>
<tr><td>型号</td><td><input type=text value="<%= rs("XH") %>" name="XH" size=60></td></tr>
<tr><td>特价</td><td><input name="TJ" type="text" value="<%= rs("TJ")%>" size=60></td></tr>
<tr><td>限量</td><td><input type=text value="<%= rs("XL")%>" name="XL" size=60 ></td></tr>
<tr><td>备注</td><td><textarea rows=5 name="BZ" ID="Textarea1" cols=60><%= rs("BZ") %></textarea></td></tr></td></tr>
<tr><td colspan="2"><input type=hidden value=<%= rs("id")%> name="id"><input type=submit value="我同意" ID="Submit1" NAME="Submit1"> <input type=reset value="重置"></td></tr>
</table></form></body>
</center>
<%
else
Response.Redirect "Error.asp?info=无法打开该网页的修改页面！！"
end if
else
Response.Redirect "Error.asp?info=您没有权限登录该网页！"
end if
else
Response.Redirect "Error.asp?info=您没有登陆，或您的IE不支持Cookies!"
End if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -