?? system.asp
字號(hào):
<%Admin="System"%>
<!--#include file="check.asp"-->
<!--#include file="1985.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>2Flash.Net - 管理中心</title>
<style>
td{font-size:9pt;line-height:160%}
body{font-size:9pt;line-height:160%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #4D9CC8; text-decoration: none }
a:hover { color: #4D9CC8; text-decoration: underline}
</style>
</head>
<body topmargin="1">
<div align="center">
<center>
<%
if request("type")="save" then
if request("webtime")<>"" then
webtime=request("webtime")
else
webtime=0
end if
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("config.asp"), True)
TS1.writeline "<"&chr(37)
TS1.writeline "webname="&chr(34)&""&request("webname")&""&chr(34)&""
TS1.writeline "weburl="&chr(34)&""&request("weburl")&""&chr(34)&""
TS1.writeline "webemail="&chr(34)&""&request("webemail")&""&chr(34)&""
TS1.writeline "webtime="&chr(34)&""&webtime&""&chr(34)&""
TS1.writeline "websmtp="&chr(34)&""&request("websmtp")&""&chr(34)&""
TS1.writeline "webDownLb="&chr(34)&""&request("webDownLb")&""&chr(34)&""
TS1.writeline "webDownLbShu="&chr(34)&""&request("webDownLbShu")&""&chr(34)&""
TS1.writeline "webDownLbShuAll="&chr(34)&""&request("webDownLbShuAll")&""&chr(34)&""
TS1.writeline "webDownYy="&chr(34)&""&request("webDownYy")&""&chr(34)&""
TS1.writeline "webDownSq="&chr(34)&""&request("webDownSq")&""&chr(34)&""
TS1.writeline "webDownPt="&chr(34)&""&request("webDownPt")&""&chr(34)&""
TS1.writeline "JyDownUser="&chr(34)&""&request("JyDownUser")&""&chr(34)&""
TS1.writeline "JyDownUserShow="&chr(34)&""&request("JyDownUserShow")&""&chr(34)&""
TS1.writeline "JyDownUrl="&chr(34)&""&request("JyDownUrl")&""&chr(34)&""
TS1.writeline "JyDownWin="&chr(34)&""&request("JyDownWin")&""&chr(34)&""
TS1.writeline "JyDownWinClose="&chr(34)&""&request("JyDownWinClose")&""&chr(34)&""
TS1.writeline "webgbook="&chr(34)&""&request("webgbook")&""&chr(34)&""
TS1.writeline "webreg="&chr(34)&""&request("webreg")&""&chr(34)&""
TS1.writeline "webreglock="&chr(34)&""&request("webreglock")&""&chr(34)&""
TS1.writeline "webuseredit="&chr(34)&""&request("webuseredit")&""&chr(34)&""
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=nothing
response.redirect "system.asp?ok=成功:修改系統(tǒng)設(shè)置完成!"
response.end
end if
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function%>
<!--#include file="config.asp"-->
<form action="system.asp?type=save" method="post">
<%if request("ok")<>"" then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="620" cellpadding="0">
<tr>
<td width="100%">
<font color="#4D9CC8"><%=request("ok")%></font>時(shí)間:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="620" bgcolor="#cococo">
<tr>
<td width="100%" bgcolor="#4D9CC8"><font color="#FFFFFF"><b>系統(tǒng)設(shè)置</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>網(wǎng)站基本信息</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
本站站名：<input name="webname" value="<%=webname%>" size="25" style="border-style: solid; border-width: 1"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
本站網(wǎng)址：<input name="weburl" value="<%=weburl%>" size="25" style="border-style: solid; border-width: 1">
<font color="#808080">不用加 http://,例(www.2Flash.Net)</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
站長信箱：<input name="webemail" value="<%=webemail%>" size="25" style="border-style: solid; border-width: 1"><font color="#808080">
用于發(fā)送郵件</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>本機(jī)環(huán)境設(shè)置</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
系統(tǒng)時(shí)差：<input name="webtime" value="<%=webtime%>" size="15" style="border-style: solid; border-width: 1"><font color="#808080">
設(shè)置服務(wù)器時(shí)間與本地的時(shí)差(單位:小時(shí)),填寫如 +3 或 -2</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
發(fā)信組件：<select name="websmtp" size="1">
<option value="">不使用發(fā)信功能</option>
<option<%if websmtp="CDONTS" then%> selected<%end if%> value="CDONTS">
CDONTS</option><option<%if websmtp="JMAIL" then%> selected<%end if%> value="JMAIL">JMAIL</option>
</select> <font color="#808080">CDONTS<%
If Not IsObjInstalled("CDONTS.NewMail") Then%><b>×</b><%else%><b>√</b>
<%end if%> JMail<%
If Not IsObjInstalled("JMail.SMTPMail") Then%><b>×</b><%else%><b>√</b><%end if%></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>作 品性質(zhì)自定</b></font><font color="#808080">
多個(gè)請(qǐng)用英文的豆號(hào)"</font><font color="#4D9CC8">,</font><font color="#808080">"分開,如(AA,BB,CC)</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
<tr>
<td width="100%"> 類別：<input name="webDownLb" value="<%=webDownLb%>" size="72" style="border-style: solid; border-width: 1"></td>
</tr>
<tr>
<td width="100%"> <font color="#808080">
如果填入[</font>精彩動(dòng)畫<font color="#808080">],側(cè)自動(dòng)讀取"文件格式"為"Flash"的作 品.</font></td>
</tr>
<tr>
<td width="100%">列表顯示作品數(shù)：
<input name="webDownLbShu" value="<%=webDownLbShu%>" size="35" style="border-style: solid; border-width: 1"><font color="#808080">
對(duì)照上面的順序,用英文的豆號(hào)"</font><font color="#4D9CC8">,</font><font color="#808080">"分開如(50,50)</font></td>
</tr>
<tr>
<td width="100%">全部作品顯示數(shù)：
<input name="webDownLbShuAll" value="<%=webDownLbShuAll%>" size="9" style="border-style: solid; border-width: 1">
<font color="#808080">
[生成"更新"頁]時(shí)全部作品HTML頁顯示的作品數(shù),見議100個(gè)以下</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>作品連接設(shè)置</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<p align="center">
<input name="b1" type="submit" value="確認(rèn)修改">
<input name="b2" type="reset" value="全部還原"></p>
</td>
</tr>
</table>
</form>
</center>
</div>
</body>
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -