?? ddtaobao_config.asp
字號:
<%@language=vbscript codepage=936 %><!--#include file="conn.asp"-->
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="../const.asp"-->
<%
dim ObjInstalled,Action,FoundErr,ErrMsg
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Action=trim(request("Action"))
if Action="" then
Action="ShowInfo"
end if
%>
<html>
<head>
<title>多多科技產品后臺管理官方網站http://www.ddtaobao.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="多多科技產品后臺管理官方網站http://www.ddtaobao.com">
<meta name="description" content="多多科技產品后臺管理官方網站http://www.ddtaobao.com">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="img/admin_style.css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="topbg">
<td height="22" colspan=2 align=center><b>網 站 配 置</b></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理導航：</strong></td>
<td height="30"><a href="ddtaobao_Config.asp">網站信息配置</a></td>
</tr>
</table>
<%
if Action="SaveConfig" then
call SaveConfig()
else
call ShowConfig()
end if
if FoundErr=True then
call WriteErrMsg()
end if
sub ShowConfig()
%>
<form method="POST" action="ddtaobao_Config.asp" id="form1" name="form1">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="topbg">
<td height="22" colspan="2"> <a name="SiteInfo"></a><strong>網站信息配置</strong></td>
</tr>
<tr class="tdbg">
<td width="137" height="25"><strong>網站名稱：</strong></td>
<td height="25"> <input name="homepage" type="text" id="homepage" value="<%=homepage%>" size="40" maxlength="50">
</td>
</tr>
<tr>
<td align="left" width="137"><font class=font>網站風格：</font></td>
<td width="85%"><select id=ver name=ver>
<option value=1>藍色莊重</option>
<option value=2>濃濃綠意</option>
<option value=3>橘子紅了</option>
<option value=4>藍雅綠色</option></select></td>
</tr>
<tr class="tdbg">
<td width="137" height="25"><strong>網站地址：</strong><br>
請添寫完整URL地址</td>
<td height="25"> <input name="url" type="text" id="url" value="<%=url%>" size="40" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="137" height="25"><strong>LOGO地址：</strong><br>
請添寫完整URL地址</td>
<td height="25"> <input name="logo" type="text" id="logo" value="<%=logo%>" size="40" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="137" height="25"><strong>站長姓名：</strong></td>
<td height="25"> <input name="Webmaster" type="text" id="Webmaster" value="<%=Webmaster%>" size="40" maxlength="20">
</td>
</tr>
<tr class="tdbg">
<td width="137" height="13"><strong>站長信箱：</strong></td>
<td height="25"> <input name="Email" type="text" id="Email" value="<%=Email%>" size="40" maxlength="100">
</td>
</tr>
<tr class="tdbg">
<td width="137" height="13"><strong>站長QQ：</strong></td>
<td height="25"> <input name="qq" type="text" id="qq" value="<%=qq%>" size="40" maxlength="100">
</td>
</tr>
<tr class="tdbg">
<td width="137" height="12"><strong>網站備案：</strong></td>
<td height="12">
<input name="beian" type="text" id="beian" value="<%=beian%>" size="40" maxlength="100"></td>
</tr> <tr class="tdbg">
<td width="137" height="25"><strong>網站廣播：</strong><br></strong>
支持HTML標記，不能使用雙引號</td>
<td height="25">
<textarea name="gg" cols="40" rows="4" id="gg"><%=gg%></textarea></td>
</tr>
<tr class="tdbg">
<td height="40" colspan="2" align="center"> <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>請直接修改“../const.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("../const.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write "Const homepage=" & chr(34) & trim(request("homepage")) & chr(34) & " '網站名稱" & vbcrlf
hf.write "Const ver=" & chr(34) & trim(request("ver")) & chr(34) & " '網站風格" & vbcrlf
hf.write "Const url=" & chr(34) & trim(request("url")) & chr(34) & " '網站地址" & vbcrlf
hf.write "Const logo=" & chr(34) & trim(request("logo")) & chr(34) & " 'Logo地址" & vbcrlf
hf.write "Const Webmaster=" & chr(34) & trim(request("Webmaster")) & chr(34) & " '站長姓名" & vbcrlf
hf.write "Const Email=" & chr(34) & trim(request("Email")) & chr(34) & " '站長信箱" & vbcrlf
hf.write "Const qq=" & chr(34) & trim(request("qq")) & chr(34) & " '站長qq" & vbcrlf
hf.write "Const beian=" & chr(34) & trim(request("beian")) & chr(34) & " '備案號碼" & vbcrlf
hf.write "Const gg=" & chr(34) & trim(request("gg")) & chr(34) & " '網站廣播" & vbcrlf
hf.write "%" & ">"
hf.close
set hf=nothing
set fso=nothing
call WriteSuccessMsg("網站配置保存成功！")
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -