📄 detail.asp
字号:
<!--#include file="css.asp"-->
<!--#include file="conn.asp"-->
<script language=vbscript>
sub closewindow()
Window.close
end sub
</script>
<%
strBH=Trim(Request.QueryString("id"))
strUSN=Session("usn")
strPWD=Session("pwd")
strChk=Session("isAdmin")
if strUSN<>"" and strPWD<>"" and strChk<>"" then
if strChk="T" then
strTB="adminLogin"
else
strTB="userLogin"
end if
strSQL="Select * from " & strTB & " 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 Customerinfo where BH='"& strBH & "'"
' Response.Write strSQL
rs.Open strsql,con,3,3
if rs.RecordCount>0 then
%>
<body bgcolor=#0066FF>
<center>
<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("BH") %>" name="BH" size=60></td></tr>
<tr><td>客户名称</td><td><input type=text value="<%=rs("KHMC") %>"name="KHMC" readonly size=60></td></tr>
<tr><td>签订日期</td><td><input type=text value="<%=rs("QDRQ") %>" name="QDRQ" readonly size=60></td></tr>
<tr><td>合同编号</td><td><input type=text value="<%=rs("HTBH") %>" name="HTBH" readonly size=60></td></tr>
<tr><td>有效期</td><td><input type=text value="<%=rs("YXQ") %>" name="YXQ" readonly size=60></td></tr>
<tr><td>基本扣点比例</td><td><input name="JBKDBL" type="text" value="<%=rs("JBKDBL")%>" readonly size=60></td></tr>
<tr><td>回款扣点比例和方式</td><td><input type=text value="<%=rs("HKKDBLHFS") %>" name="HKKDBLHFS" readonly size=60></td></tr>
<tr><td>完成任务扣点</td><td><input type=text value="<%=rs("WCRWKD") %>" name="WCRWKD" readonly size=60></td></tr>
<tr><td>伤残机扣点</td><td><input type=text value="<%=rs("SCJKD") %>" name="SCJKD" readonly size=60></td></tr>
<tr><td>全年销售任务</td><td><input type=text value="<%=rs("QNXSRW") %>"name="QNXSRW" readonly size=60></td></tr>
<tr><td>付款条件</td><td><input type=text value="<%=rs("FKTJ") %>" name="FKTJ" readonly size=60></td></tr>
<tr><td>其他</td><td><textarea rows=5 name="QT" readonly cols=60><%= rs("QT") %></textarea></td></tr>
</table></center>
<center><a href="#" onclick="closewindow()"><font size=3 color=#660033>关闭窗口</font</a></center></body>
<%
else
Response.Redirect "Error.asp?info=无法打开该网页的修改页面！！"
end if
else
'Response.Write strSQL
Response.Redirect "Error.asp?info=您没有权限登录该网页！"
'Response.Write strTB
end if
else
Response.Redirect "Error.asp?info=您没有登陆，或您的IE不支持Cookies!"
End if
%>
<FONT face="宋体"></FONT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -