?? admin_js.asp
字號:
<!-- #include file="include/admin_onlogin.asp" -->
<%
dim fobjFSO,fobjCountFile,file,ftypes,fdata,ffilename
tit="JS文件生成"
call admin_title(1)
call admin_td(tit)
'---------------------------------以下生成修改菜單---------------------------------------------------
'菜單數量不要>9個,否則頁面較亂?。《嘤?1個時候,請將下面虛線內的內容重新COPY做一個
'action=*****的值均可修改,但注意不要重復!!%>
<%'----------------------------------------------------------------------------------------------%>
<tr><td align=center colspan=2 height=15>
<table border=0>
<tr>
<td><a href='?'>首 頁</a></td>
<td width=10></td>
<td><a href='?action=plugin'<%if action="plugin" then response.write " class=red"%>>紅包配置</a></td>
<td width=10></td>
<td><a href='?action=banner'<%if action="banner" then response.write " class=red"%>>廣告管理</a></td>
<td width=10></td>
<td><a href='?action=note'<%if action="note" then response.write " class=red"%>>注冊聲明</a></td>
<td width=10></td>
<td><a href='?action=about_site'<%if action="about_site" then response.write " class=red"%>>關于我們</a></td>
<td width=10></td>
<td><a href='?action=contact'<%if action="contact" then response.write " class=red"%>>聯系方式</a></td>
</tr>
</table>
</td></tr>
</table>
<%'----------------------------------------------------------------------------------------------%>
<%
action=request.querystring("action")
select case action
case "plugin"
file="include/common_plugin.asp"
ftypes="JS"
ffilename="菜單導航"
call js_edit()
case "note"
file="include/inc_register.inc" '所修改的文件位置
ftypes="JS" '用于標注所修改的文件類型,如JS,TXT等
ffilename="注冊說明" '文件的中文名,可修改
call js_edit()
case "about_site"
file="include/inc_about.inc"
ftypes="JS"
ffilename="關于我們"
call js_edit()
case "banner"
file="ads/ads_banner.js"
ftypes="JS"
ffilename="廣告管理"
call js_edit()
case "contact"
file="include/inc_contact.inc"
ftypes="JS"
ffilename="聯系方式"
call js_edit()
end select
call admin_js_end()
sub js_edit()
Set fobjFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
Set fobjCountFile = fobjFSO.OpenTextFile(Server.MapPath(file),1,True)
If Not fobjCountFile.AtEndOfStream Then fdata = fobjCountFile.ReadAll
else
fdata=request("fdata")
Set fobjCountFile=fobjFSO.CreateTextFile(Server.MapPath(file),True)
fobjCountFile.Write fdata
end if
fobjCountFile.Close
Set fobjCountFile=Nothing
Set fobjFSO = Nothing
%>
<table width="98%" border="0" cellspacing="3" cellpadding="0"><form method=post>
<tr><td height="23" align=center class=td>管理后臺
<b><font color="#0066FF"><%= ftypes %></font></b>
文件編輯器:<font color="#66CC00"><b><%= ffilename %></b></font></td>
</tr>
<tr><td align=center>
<textarea name="fdata" cols="135" rows="20" style="font-family:Verdana,Arial,sans-serif;font-size:12px"><%=fdata%>
</textarea></td>
<td >
<tr><td height="23" align=center class=td>相關操作</td></tr>
<tr><td height=15 align=center><input type="reset" name="Reset" value="恢 復">
<input type="submit" name="save" value="提 交"></td>
</tr>
</form></table>
<table width="98%" border="0" cellspacing="3" cellpadding="0">
<tr><td align=center width=15%><B>當前文件路徑:</B></td>
<td><font color="#ff00ff"><%=Server.MapPath(file)%></font></td></tr>
</table>
<%end sub
sub js_main()
call admin_table(0,1)
call admin_td(tit)%>
<tr>
<td></td>
<td height=150>
<table border=0 width='100%'>
<tr>
<td align=left><FONT size=4 COLOR="#CC0000">注意事項:</font></td>
</tr>
<tr height=5>
<td></td>
</tr>
<tr>
<td align=left>1、請先選擇在 <font color="#3366FF"><%=tit%></font> 中要修改的文件!建議在修改這些文件前先作好 <FONT COLOR="#FF0000">備份</FONT> 。</td>
</tr>
<tr>
<td align=left> 2、如果因為您的一時不小心,將文件修改錯誤導致不能正常登陸網站后臺,請盡快用FTP連上您的服務器,以本地可用的相關文件覆蓋網上錯誤的文件。</td>
</tr>
<tr>
<td align=left> 3、文件將被保存在你安裝目錄下的 <font color=red><%=file%></font> 文件夾里,
如果您的空間不支持 <font color=red>FSO</font> ,請直接編輯相應文件, 然后用FTP軟件上傳!如果您對asp/js/html代碼不了解,請不要隨意編輯。</td>
</tr>
<tr>
<td align=left> 4、本程序適合 <font color=red>TXT、JS、ASP、PHP、HTML</font> 等
文本文件的在線修改,如修改其它文件可能會顯示亂碼??!</td>
</tr>
</table>
</td></tr>
<%
end sub
sub admin_js_end()
dim temp1
temp1="歡迎使用丁香苑2006版"
response.write vbcrlf&ukong&vbcrlf
%>
<table cellspacing=1 cellpadding=2 class=table>
<tr class=tr0>
<td align=center> <font alt='丁香苑社區'>Copyright © 2006 『丁香苑社區』All Rights Reserved.</font></td>
</tr>
</table>
</center></body></html>
<%
call web_clear(0)
end sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -