<%@language=vbscript codepage=936%>
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
dim dns
dns="../"
%>
<!--#Include file="../Common/Inc_DatConn.asp"-->
<!--#Include file="Common/Inc_Config.asp"-->
<!--#Include file="Common/Inc_Function.asp"-->
<!--#Include file="fy_admin_check.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Admin_Style.Css" rel="stylesheet" type="text/css">
<script src="../common/Admin.js" type="text/javascript"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
if fla25<>1 and Session("intUserLevel")<2 then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>错误：操作权限出错，您没有权限操作些功能！</li>"
Call Admin_ShowErr(ErrMsg)
end if
bbaction=changechr(request("bbaction"))
Select case bbaction
  	Case "savelxwm"
		call savelxwm
	Case else
	Dim rdsContact
	Dim sqlCompany

	set rdsContact = Server.CreateObject("ADODB.Recordset")
	sqlCompany = "Select * From Dat_Company"
	rdsContact.Open sqlCompany,Conn,1,1
	if not rdsContact.EOF then
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
    <td height="22" colspan="2" align="center"><strong>联系方式管理</strong></td>
  </tr><form method="post" action="?bbaction=savelxwm" name="AddForm" OnSubmit="return FeedBack()">
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">公司名称：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="CompanyName" size="40" class="face" value="<% = rdsContact("CompanyName")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">联系人：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="ContactMan" size="40" class="face" value="<% = rdsContact("ContactMan")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">电话：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="Tel" size="40" class="face" value="<% = rdsContact("Tel")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">传真：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="Fax" size="40" class="face" value="<% = rdsContact("Fax")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">E-Mail：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="Email" size="40" class="face" value="<% = rdsContact("Email")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">QQ：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="QQ" size="40" class="face" value="<% = rdsContact("QQ")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">MSN：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="MSN" size="40" class="face" value="<% = rdsContact("MSN")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">Mobile：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="Mobile" size="40" class="face" value="<% = rdsContact("Mobile")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">地址：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="Add" size="40" class="face" value="<% = rdsContact("Add")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">邮编：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="Postalcode" size="40" class="face" value="<% = rdsContact("Postalcode")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">网站：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="Homepage" size="40" class="face" value="<% = rdsContact("Homepage")%>"></td>
			  </tr>
			  <tr class="tdbg">
			    <td width="20%" height="25" align="right">更新时间：</td>
			    <td width="80%" height="25">&nbsp;<input type="text" name="UpdateTime" size="40" class="face" value="<% = rdsContact("UpdateTime")%>" readonly="ture"> （上次系统更新时间）</td>
			  </tr>
  	<tr class="tdbg">
    <td width="10%" height="30" align="right">　</td>
    <td height="30" width="89%"><input type="submit" value="更 新" name="submit">&nbsp;&nbsp;&nbsp;<input type="reset" value="重 置" name="reset"></td>
  </tr>
	</form>
</table>
<%
end if
end Select

%>