modimailinfo.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0510" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
PostID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_MailList Where PostID='" & PostID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此邮局或者您没有权限！</p>"
else

%>
<!--#include file="MailMenu.asp"-->
<!------------------------------------------------------------------------------------->
<form name="inputform" action="ModiMailInfoDo.asp" method="post">
  <table width="60%" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor="<%=Opt_Table_BGColor%>">
	<tr bgcolor="<%=Opt_TR_BGColor%>">
	  <td colspan=2 align=center>
	    请输入邮局信息--<font color=red>mail.<%=Rs("BPostDN")%></font>
	  </td>
	</tr>		
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td align=right bgcolor="<%=Opt_TR_BGColor%>">公司名称：</td>
	  <td><input name="CorpName" maxlength="40"  value="<%=Rs("CorpName")%>" class="input"></td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td align=right bgcolor="<%=Opt_TR_BGColor%>">地址：</td>
	  <td><input name="CorpAddr" maxlength="60" value="<%=Rs("CorpAddr")%>" class="input">
	  </td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td align=right bgcolor="<%=Opt_TR_BGColor%>">邮政编码：</td>
	  <td><input name="CorpPC" maxlength="6"  value="<%=Rs("CorpPC")%>" class="input">
	  </td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td align=right bgcolor="<%=Opt_TR_BGColor%>">电话：</td>
	  <td><input name="CorpTel" maxlength="20"  value="<%=Rs("CorpTel")%>" class="input">
	  </td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td align=right bgcolor="<%=Opt_TR_BGColor%>">传真：</td>
	  <td><input name="CorpFax" maxlength="20"  value="<%=Rs("CorpFax")%>" class="input">
	  </td>
	</tr>
	<tr>
	  <td colspan=2 bgcolor="<%=Opt_TD_BGColor2%>" align=center>
	    <input name="ID" type="hidden" value="<%=PostID%>">
	    <input name="submit1" type=submit value="确定" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
	    <input type=button onclick="javascript:history.go(-1)" value="返回"  name=button1 class="button">
	  </td>
	</tr>
  </table>
</form>

<%
end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>