📄 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 + -