see_wt.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 179 行
ASP
179 行
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(session("masterflag"),",")
for each ins in in_str
if trim(ins)="08" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
response.end
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%>
<link rel="stylesheet" type="text/css" href="../css/style.css">
<script>
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "解除全选"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "选择全部";}}
function Emailhref(){
var len=document.forme.selAnnounce.length;
var id="";
for(i=0;i<len;i++)
{
if(document.forme.selAnnounce[i].checked==true) {
id=id+( document.forme.selAnnounce[i].value)+',';
}
}
window.location='message.asp?HOPE_id='+id
}
</script>
<body>
<%
Set Rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * from yixiang_wt Where Id="&Trim(Request("ID"))
Rs.open Sql,Conn,1,3
msg_per_page=30 '定义每页显示记录条数
%>
<!--#include file="../../inc/headpage.asp"-->
<br>
<TABLE width="100%" border="0" align=center cellpadding="0" cellspacing="1" class="tableBorder">
<tr>
<th height=25 colspan="2" class="tableHeaderText">添加商业信息</th>
</tr>
<TR ALIGN="center">
<TD>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table border="0" width="100%" cellpadding="2" cellspacing="0" align="center" bgcolor="#4296CE" style="border-bottom:#E7E7E7 5 solid;">
<tr>
<td width="180" align="center" bgcolor="#FFFFFF" class=M><font color="#112482">委托方式</font></td>
<td bgcolor="#FFFFFF"><select name="Wt" id="Wt" disabled>
<%SQl_type="Select id,yixiang_type from yixiang_Types Where id="&Rs("yixiang_type")&""
Set Rs_Type=Conn.execute(Sql_type)
Do WHile Not Rs_Type.Eof
Response.Write("<option value="&Rs_Type("ID")&">"&Rs_Type("yixiang_type")&"</option>")
Rs_Type.MoveNext
if Rs_Type.Eof Then Exit Do
Loop
Rs_Type.Close
Set Rs_Type=nothing
%>
</select></td>
</tr>
<tr>
<td bgcolor="#f6f6f6" colspan="2"></td>
</tr>
</table>
<table border="0" width="100%" cellpadding="2" cellspacing="0" align="center" bgcolor="#4296CE" style="border-bottom:#E7E7E7 5 solid;">
<tr>
<td width="180" align="center" bgcolor="#FFFFFF" class=M><font color="#112482">公司名称</font></td>
<td bgcolor="#FFFFFF"><input name="Company" type="text" disabled id="Company" value="<%=Rs("Company")%>" size="30">
</td>
</tr>
<tr>
<td bgcolor="#f6f6f6" colspan="2"></td>
</tr>
</table>
<table border="0" width="100%" cellpadding="2" cellspacing="0" align="center" bgcolor="#4296CE" style="border-bottom:#E7E7E7 5 solid;">
<tr>
<td width="180" align="center" bgcolor="#FFFFFF" class=M><font color="#112482">联系人</font></td>
<td bgcolor="#FFFFFF"><input name="UserName" type="text" id="UserName" disabled value="<%=Rs("UserName")%>"> </td>
</tr>
<tr>
<td bgcolor="#f6f6f6" colspan="2"></td>
</tr>
</table>
<table border="0" width="100%" cellpadding="2" cellspacing="0" align="center" bgcolor="#4296CE" style="border-bottom:#E7E7E7 5 solid;">
<tr>
<td width="180" align="center" bgcolor="#FFFFFF" class=M><font color="#112482">电话</font></td>
<td bgcolor="#FFFFFF"><input name="Tel" type="text" id="Tel" disabled value="<%=Rs("Tel")%>"> </td>
</tr>
<tr>
<td bgcolor="#f6f6f6" colspan="2"></td>
</tr>
</table>
<table border="0" width="100%" cellpadding="2" cellspacing="0" align="center" bgcolor="#4296CE" style="border-bottom:#E7E7E7 5 solid;">
<tr>
<td width="180" align="center" bgcolor="#FFFFFF" class=M><font color="#112482">传真</font></td>
<td bgcolor="#FFFFFF"><input name="Fax" type="text" id="Fax" disabled value="<%=Rs("Fax")%>"></td>
</tr>
<tr>
<td bgcolor="#f6f6f6" colspan="2"></td>
</tr>
</table>
<table border="0" width="100%" cellpadding="2" cellspacing="0" align="center" bgcolor="#4296CE" style="border-bottom:#E7E7E7 5 solid;">
<tr>
<td width="180" align="center" bgcolor="#FFFFFF" class=M><font color="#112482">E－Mail</font></td>
<td bgcolor="#FFFFFF"><input name="mail" type="text" id="mail" disabled value="<%=Rs("Email")%>"> </td>
</tr>
<tr>
<td bgcolor="#f6f6f6" colspan="2"></td>
</tr>
</table>
<table border="0" width="100%" cellpadding="2" cellspacing="0" align="center" bgcolor="#4296CE" style="border-bottom:#E7E7E7 5 solid;">
<tr>
<td width="180" align="center" bgcolor="#FFFFFF" class=M><font color="#112482">公司地址</font></td>
<td bgcolor="#FFFFFF"><input name="address" type="text" disabled id="address" value="<%=Rs("address")%>" size="50"> </td>
</tr>
<tr>
<td bgcolor="#f6f6f6" colspan="2"></td>
</tr>
</table>
<table border="0" width="100%" cellpadding="2" cellspacing="0" align="center" bgcolor="#4296CE" style="border-bottom:#E7E7E7 5 solid;">
<tr>
<td width="180" align="center" bgcolor="#FFFFFF" class=M><font color="#112482">邮政编码</font></td>
<td bgcolor="#FFFFFF"><input name="Zip" type="text" id="Zip" disabled value="<%=Rs("Zip")%>"></td>
</tr>
<tr>
<td bgcolor="#f6f6f6" colspan="2"></td>
</tr>
</table>
<table border="0" width="100%" cellpadding="2" cellspacing="0" align="center" bgcolor="#4296CE" style="border-bottom:#E7E7E7 5 solid;">
<tr>
<td width="180" align="center" bgcolor="#FFFFFF" class=M><font color="#112482">申请简述(20-1000)</font></td>
<td bgcolor="#FFFFFF"><textarea name="Note" cols="70" rows="5" id="Note" disabled ><%=Rs("Zip")%></textarea> </td>
</tr>
<tr align="center">
<td height="30" colspan="2" bgcolor="#f6f6f6"><a href="#" onClick="javascript:history.go(-1)">返回上一页</a></td>
</tr>
</table>
</td>
</tr>
</table> </TD>
</TR>
</TABLE>
<br>
<!--#include file="../copy.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?