?? xx_systemconfig.asp
字號:
<!--#include file=conn.asp-->
<!--#include file=cookies.asp--><!--#include file=function.asp--><!--#include file=config.asp-->
<html>
<head><link href="css.css" rel="stylesheet" type="text/css">
<title>祥星送貨單打印系統--打印設置</title>
</head>
<body>
<%
dim ObjInstalled,Action,FoundErr,ErrMsg
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Action=trim(request("Action"))
if Action="" then
Action="ShowInfo"
end if
%>
<html>
<head>
<title>網站配置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<%
if Action="SaveConfig" then
call SaveConfig()
Response.Redirect "XX_SystemConfig.asp"
else
call ShowConfig()
end if
if FoundErr=True then
call WriteErrMsg()
end if
sub ShowConfig()
%>
<form method="POST" action="XX_SystemConfig.asp" id="form" name="form">
<table width="650" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000" >
<tr bgcolor="#3399FF">
<td height="24" colspan="4" bgcolor="#33FF99" > <div align="center"><strong>網
站 配 置</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4" class="topbg"> <strong>網站信息配置</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="224" class="tdbg"><strong>使用單位名稱：</strong></td>
<td colspan="3" class="tdbg"><span class="topbg"><strong>
<input name="SiteName" type="text" id="SiteName" value="<%=SiteName%>" size="40" maxlength="50">
</strong></span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="224" class="tdbg"><strong>使用單位電話：</strong></td>
<td colspan="3" class="tdbg"> <input name="Tel" type="text" id="Tel" value="<%=Tel%>" size="40" maxlength="50"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="224" class="tdbg"><strong>LogoU：</strong><br>
如logo/logo.gif</td>
<td colspan="3" class="tdbg"> <input name="LogoUrl" type="text" id="LogoUrl" value="<%=LogoUrl%>" size="40" maxlength="255"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="224" class="tdbg"><strong>使用單位傳真：</strong></td>
<td colspan="3" class="tdbg"> <input name="Fax" type="text" id="Fax" value="<%=Fax%>" size="40" maxlength="20"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="224" class="tdbg"><strong>使用單位郵箱：</strong></td>
<td colspan="3" class="tdbg"> <input name="Email" type="text" id="Email" value="<%=Email%>" size="40" maxlength="100"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="tdbg"> </td>
<td colspan="3" class="tdbg"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4" align="center" class="tdbg"> <input name="Action" type="hidden" id="Action" value="SaveConfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存設置 " <% If ObjInstalled=false Then response.write "disabled" %>> </td>
</tr>
<%
If ObjInstalled=false Then
Response.Write "<tr class='tdbg'><td height='40' colspan='3'><b><font color=red>你的服務器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能。<br>請直接修改“config.asp”文件中的內容。</font></b></td></tr>"
End If
%>
</table>
<%
end sub
%>
</form>
</body>
</html>
<%
sub SaveConfig()
If ObjInstalled=false Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>你的服務器不支持 FSO(Scripting.FileSystemObject)! </li>"
exit sub
end if
dim fso,hf
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("config.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write "Const SiteName=" & chr(34) & trim(request("SiteName")) & chr(34) & " '網站名稱" & vbcrlf
hf.write "Const Tel=" & chr(34) & trim(request("Tel")) & chr(34) & " '電話" & vbcrlf
hf.write "Const fax=" & chr(34) & trim(request("fax")) & chr(34) & " '傳真" & vbcrlf
hf.write "Const EMail=" & chr(34) & trim(request("EMail")) & chr(34) & " '企業郵局" & vbcrlf
hf.write "Const LogoUrl=" & chr(34) & trim(request("LogoUrl")) & chr(34) & " 'Logo地址" & vbcrlf
hf.write "%" & ">"
hf.close
set hf=nothing
set fso=nothing
end sub
%>
</center>
</body></html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -