📄 makejs.asp

📁 一个FLASH游戏的主页源码
💻 ASP
字号:
<!--#include file="Admin_Conn.asp"-->
<!--#include file="Admin_Session.asp"-->
<%
dim openfile,chang,i,string
Action=request("Action")
path=server.MapPath("../Code")

if Action="MakeTui" then
filename="Flash_Tui.JS"
path=path&"/"&filename
end if

if Action="MakeHot" then
filename="Flash_Hot.JS"
path=path&"/"&filename
end if

if Action="MakeNew" then
filename="Flash_New.JS"
path=path&"/"&filename
end if

if Action="MakeSpecial" then
filename="Flash_Special.JS"
path=path&"/"&filename
end if

if Action="MakeFlasher" then
filename="Flash_Flasher.JS"
path=path&"/"&filename
end if

if Action="MakeType" then
ChannelID=request("ChannelID")
ChannelNO=request("ChannelNO")
ChannelName=request("ChannelName")
filename=request("ChannelJS")
path=path&"/"&filename
end if

if Action="MakeChannelTui" then
ChannelID=request("ChannelID")
filename=request("ChannelJS")
path=path&"/"&filename
end if

if Action="MakeChannelHot" then
ChannelID=request("ChannelID")
filename=request("ChannelJS")
path=path&"/"&filename
end if

if Action="MakeChannelNew" then
ChannelID=request("ChannelID")
filename=request("ChannelJS")
path=path&"/"&filename
end if

   Set openfile = Server.CreateObject("Scripting.FileSystemObject")
   '如果无此JS脚本,则生成此JS脚本
 
   if openfile.fileExists(path)="False" then
   openfile.CreateTextFile(path)
   end if

   openfile.copyfile path,path
   set chang=openfile.createtextfile(path,3)
   string="document.write('" 

   if action="MakeChannelNew" then
      sql="select * from Flash where ChannelID="&ChannelID&" order by FID desc" 
      set rs= Server.CreateObject("ADODB.Recordset") 
      rs.open sql,conn,3,1 
         if rs.eof or rs.bof then
            string = string & "&nbsp;"
         else
	    for i=1 to 10
	       if rs.eof then exit for
               Name=rs("Name")
               if len(Name)>14 then Name=left(Name,13) & ".."
	       string = string &  "·<a href=""View.Asp?FID="&rs("FID")&""" target=""_blank"">" & Name & "</a>　<font color=#999999>["&left(rs("AddTime"),10)&"]</font><br>"
	       rs.movenext
	    next
         end if 
   end if

   if action="MakeChannelHot" then
      sql="select * from Flash where ChannelID="&ChannelID&" order by Click desc" 
      set rs= Server.CreateObject("ADODB.Recordset") 
      rs.open sql,conn,3,1 
         if rs.eof or rs.bof then
            string = string & "&nbsp;"
         else
	    for i=1 to 15
	       if rs.eof then exit for
               Name=rs("Name")
               if len(Name)>8 then Name=left(Name,7) & ".."
	       string = string &  "·<a href=""Show_Flash.Asp?FID="&rs("FID")&""" target=""_blank"">" & Name & "</a> <font color=""#CO0000"">["&rs("Click")&"]</font><br>"
	       rs.movenext
	    next
         end if 
   end if

   if action="MakeSpecial" then
      sql="select * from Special order by SpecialID desc" 
      set rs= Server.CreateObject("ADODB.Recordset") 
      rs.open sql,conn,1,1 
         if rs.eof or rs.bof then
            string = string & "&nbsp;"
         else
	    for i=1 to 10
	       if rs.eof then exit for
               SpecialName=rs("SpecialName")
               if len(SpecialName)>20 then SpecialName=left(SpecialName,19) & ".."
	       string = string &  "·<a href=""Show_Special.Asp?SpecialID="&rs("SpecialID")&""">" & SpecialName & "</a><br>"
	       rs.movenext
	    next
         end if 
   end if

   if action="MakeType" then
      sql="select * from Class where ChannelID="&ChannelID&" order by ClassID desc" 
      set rs= Server.CreateObject("ADODB.Recordset") 
      rs.open sql,conn,1,1 
         if rs.eof or rs.bof then
            string = string & "&nbsp;"
         else
            string = string & "·<a href=""Channel_List.Asp?ChannelID="&ChannelID&"&ChannelName="&ChannelName&"""><b>" & ChannelName & "</b></a> / <b>"&ChannelNO&"</b><br>"
	    for i=1 to 100
	       if rs.eof then exit for
               ClassName=rs("ClassName")
               if len(ClassName)>20 then ClassName=left(ClassName,19) & ".."
	       string = string &  "　<a href=""Class_List.Asp?ChannelID="&ChannelID&"&ChannelName="&ChannelName&"&ClassID="&rs("ClassID")&"&ClassName="&rs("ClassName")&""">" & ClassName & "</a> / <font color=""#81840D""><b>"&rs("ClassNO")&"</b></font><br>"
	       rs.movenext
	    next
         end if 
   end if

   if action="MakeTui" then
      sql="select * from Flash where IfTui=1 order by FID desc" 
      set rs= Server.CreateObject("ADODB.Recordset") 
      rs.open sql,conn,3,1 
         if rs.eof or rs.bof then
            string = string & "&nbsp;"
         else
	    for i=1 to 10
	       if rs.eof then exit for
               Name=rs("Name")
               if len(Name)>20 then Name=left(Name,19) & ".."
	       string = string &  "·<a href=""Show_Flash.Asp?FID="&rs("FID")&""">" & Name & "</a><br>"
	       rs.movenext
	    next
         end if 
   end if

   if action="MakeFlasher" then
      sql="select * from Flasher order by FlasherID desc" 
      set rs= Server.CreateObject("ADODB.Recordset") 
      rs.open sql,conn,3,1 
         if rs.eof or rs.bof then
            string = string & "&nbsp;"
         else
	    for i=1 to 10
	       if rs.eof then exit for
               Flasher=rs("Flasher")
               if len(Flasher)>20 then Flasher=left(Flasher,19) & ".."
	       string = string &  "·<a href=""Flasher_List.asp?FlasherType="&rs("FlasherType")&""">["&rs("FlasherType")&"]</a> <a href=""Show_Flasher.Asp?FlasherID="&rs("FlasherID")&"&Flasher="&rs("Flasher")&""">" & Flasher & "</a><br>"
	       rs.movenext
	    next
         end if 
   end if

   if action="MakeChannelTui" then
      sql="select * from Flash where IfTui=1 and ChannelID="&ChannelID&" order by FID desc" 
      set rs= Server.CreateObject("ADODB.Recordset") 
      rs.open sql,conn,3,1 
         if rs.eof or rs.bof then
            string = string & "&nbsp;"
         else
	    for i=1 to 10
	       if rs.eof then exit for
               Name=rs("Name")
               if len(Name)>11 then Name=left(Name,10) & ".."
	       string = string &  "·<a href=""View.Asp?FID="&rs("FID")&""">" & Name & "</a><br>"
	       rs.movenext
	    next
         end if 
   end if

   if action="MakeHot" then
      sql="select * from Flash order by Click desc" 
      set rs= Server.CreateObject("ADODB.Recordset") 
      rs.open sql,conn,3,1 
         if rs.eof or rs.bof then
            string = string & "&nbsp;"
         else
	    for i=1 to 10
	       if rs.eof then exit for
               Name=rs("Name")
               if len(Name)>20 then Name=left(Name,19) & ".."
	       string = string &  "<b>" & i & ".</b><a href=""Show_Flash.Asp?FID="&rs("FID")&""">" & Name & "</a> <font color=#999999>["&rs("Click")&"]</font><br>"
	       rs.movenext
	    next
         end if 
   end if

   if action="MakeNew" then
      sql="select * from Flash order by FID desc" 
      set rs= Server.CreateObject("ADODB.Recordset") 
      rs.open sql,conn,1,1 
         if rs.eof or rs.bof then
            string = string & "&nbsp;"
         else
	    for i=1 to 18
	       if rs.eof then exit for
               Name=rs("Name")
               if len(Name)>11 then Name=left(Name,10) & ".."
	       string = string &  "·<a href=""View.Asp?FID="&rs("FID")&""">" & Name & "</a><br>"
	       rs.movenext
	    next
         end if 
   end if

   string=string & "')"
   chang.write string
   chang.close
   set rs=nothing
   set conn=nothing
   response.write "<script>alert('脚本生成完毕！');history.back()</script>"

set openfile=nothing
set chang=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -