📄 makesoft.asp
字号:
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="zcm.asp"-->
<%if session("flag")>3 then
response.write "<br><p align=center>您的操作权限不够！</p>"
response.end
end if
%>
<%
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"mayivod"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write "<script language=JavaScript>{window.alert('错误：程序尚未注册,此功能不能使用!');window.location='zcmayireg.asp?type=reg';}</script>"
end if
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<%
fileid=request("id")
dim rs
dim sql
dim rs1
dim sql1
dim moban
set rs1 = server.CreateObject("ADODB.RecordSet")
sql1 = "select moban from moban where id=1"
set rs1 = conn.Execute (sql1)
moban=rs1("moban")
moban1=moban
set rs=conn.execute("select * from [home]")
homes=rs("homes")
dzurl=rs("url")
dzurls=rs("urls")
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid in("&fileid&")"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有记录"
else
do while not rs.eof
'-------------------生成HTML文件
htmlfile=rs("articleid")
htmlfile=htmlfile&".html"
movieid=rs("articleid")
title=rs("title")
type1=rs("typeid")
level=rs("softlevel")
arter=rs("name")
from=rs("where")
time1=rs("dateandtime")
howlong=rs("howlong")
content_s=rs("content")
if len(content_s)>270 then content_s=left(content_s,270)&"..."
content1=content1&""&content_s&""
content2=rs("content")
hits=rs("hits")
count=count&"<img border=0 src=../img/"&rs("count")&".GIF>"
if rs("movietype")="rm" then
format="<img src=../IMG/real.gif>"
elseif rs("movietype")="md" then
format="<img src=../IMG/media.gif>"
elseif rs("movietype")="mov" then
format="<img src=../IMG/lookmov.gif>"
end if
if rs("canlook")=1 then
jb=jb&"普通电影"
elseif rs("canlook")=3 then
jb=jb&"黄金电影"
elseif rs("canlook")=0 then
jb=jb&"免费电影"
end if
movieid=rs("articleid")
set rs_type=server.createobject("adodb.recordset")
sql="select typeid from type where type='"&type1&"'"
rs_type.open sql,conn,1,1
tid=rs_type("typeid")
rs_type.close
set rs_type=nothing
Set rs_menu= Server.CreateObject("ADODB.Recordset")
rs_menu.open"select * from type",conn,1,1
if rs_menu.EOF then
response.write "没有栏目："
else
do while NOT rs_menu.EOF
if rs_menu("type")="VIP专区" or rs_menu("type")="成人片" then
menu=menu&"<TD height=20 align=center vAlign=middle width=0>"
menu=menu&"<a href=../mlist/"&rs_menu("typeid")&"_1.html></a></TD>"
else
menu=menu&"<TD height=20 align=center vAlign=middle width=387>"
menu=menu&"<img src=../images/menu-01.gif width=18 height=6><a href=../mlist/"&rs_menu("typeid")&"_1.html class=menu>"&rs_menu("type")&"</a></TD>"
end if
rs_menu.MoveNext
loop
end if
rs_menu.close
set rs_menu=nothing
set rs_top=server.createobject("adodb.recordset")
sql="select * from learning where typeid='"&type1&"' order by hits desc"
rs_top.open sql,conn,1,1
if rs_top.eof and rs_top.bof then
top=top&"暂时没有电影"
else
top="<script src='../js/hot_"&tid&".js'></script>"
end if
rs_top.close
set rs_top=nothing
if rs("domurl")="" then
pic="../images/nopic.gif"
else
pic=""&rs("domurl")&""
end if
sql="select * from movieurl where nameid='"&fileid&"'"
set rsurl=server.createobject("adodb.recordset")
if rs("onlinelook")=1 then
rsurl.open sql,conn,1,1
if rsurl.eof then
url1="不提供在线观看"
else
no=rsurl.recordcount
if no=1 then
url1_free="<a href=""javascript:play('"&rsurl("id")&"&id2="&fileid&"');""><font color=#ff0000>"&title&"</font></a>"
elseif no=2 then
url2_free="<a href=""javascript:play('"&rsurl("id")&"&id2="&fileid&"&id3=上集');""><font color=#ff0000>上集</font></a> "
rsurl.movenext
url3_free="<a href=""javascript:play('"&rsurl("id")&"&id2="&fileid&"&id3=下集');""><font color=#ff0000>下集</font></a>"
elseif no=3 then
url4_free="<a href=""javascript:play('"&rsurl("id")&"&id2="&fileid&"&id3=上集');""><font color=#ff0000>上集</font></a> "
rsurl.movenext
url5_free="<a href=""javascript:play('"&rsurl("id")&"&id2="&fileid&"&id3=中集');""><font color=#ff0000>中集</font></a> "
rsurl.movenext
url6_free="<a href=""javascript:play('"&rsurl("id")&"&id2="&fileid&"&id3=下集');""><font color=#ff0000>下集</font></a>"
elseif no>3 then
dim c
for c=1 to no
url7_free=url7_free&"<a class=real href=""javascript:play('"&rsurl("id")&"&id2="&fileid&"&id3=第"&c&"集');""><font color=#ff0000> "&c&" </font></a>"
if c mod 15 =0 then url7_free=url7_free&"<br>"
rsurl.movenext
next
end if
end if
rsurl.close
else
url="不提供在线观看"
end if
if rs("down")=1 then
rsurl.open sql,conn,1,1
if rsurl.eof then
downurl="没有提供影片下载"
else
down_no=rsurl.recordcount
if down_no=1 then
downurl1="<a href=../index/look.asp?id1="&rsurl("id")&"&id2="&fileid&">"&title&"</a>"
elseif no=2 then
downurl2="<a href=../index/look.asp?id1="&rsurl("id")&"&id2="&fileid&">上集</a>"
rsurl.movenext
downurl3="<a href=../index/look.asp?id1="&rsurl("id")&"&id2="&fileid&">下集</a>"
elseif no=3 then
downurl4="<a href=../index/look.asp?id1="&rsurl("id")&"&id2="&fileid&">上集</a>"
rsurl.movenext
downurl5="<a href=../index/look.asp?id1="&rsurl("id")&"&id2="&fileid&">中集</a>"
rsurl.movenext
downurl6="<a href=../index/look.asp?id1="&rsurl("id")&"&id2="&fileid&">下集</a>"
elseif no>3 then
dim d
for d=1 to no
downurl7=downurl7&"<a class=real href=../index/look.asp?id1="&rsurl("id")&"&id2="&fileid&"> "&d&" </a>"
next
end if
end if
rsurl.close
else
downurl="不提供影片下载"
end if
set rsurl=nothing
moban=replace(moban,"CAT",type1)
moban=replace(moban,"<!-menu->",menu)
moban=replace(moban,"<!-top->",top)
moban=replace(moban,"<!-sortid->",tid)
moban=replace(moban,"<!-title->",title)
moban=replace(moban,"<!-sort->",type1)
moban=replace(moban,"<!-free->",mfree)
moban=replace(moban,"<!-level->",level)
moban=replace(moban,"<!-movid->",movieid)
moban=replace(moban,"<!-arter->",arter)
moban=replace(moban,"<!-count->",count)
moban=replace(moban,"<!-date->",time1)
moban=replace(moban,"<!-where->",from)
moban=replace(moban,"<!-homes->",homes)
moban=replace(moban,"<!-dzurl->",dzurl)
moban=replace(moban,"<!-dzurls->",dzurls)
moban=replace(moban,"<!-xg->",xg)
moban=replace(moban,"<!-jb->",jb)
moban=replace(moban,"<!-id->",fileid)
moban=replace(moban,"<!-tid->",tid)
moban=replace(moban,"<!-top->",top)
moban=replace(moban,"<!-new->",top_new)
moban=replace(moban,"<!-howlong->",howlong)
moban=replace(moban,"<!-format->",format)
moban=replace(moban,"<!-pic->",pic)
moban=replace(moban,"<!-points->",points)
moban=replace(moban,"<!-url->",url)
moban=replace(moban,"<!-url1->",url1)
moban=replace(moban,"<!-url2->",url2)
moban=replace(moban,"<!-url3->",url3)
moban=replace(moban,"<!-url4->",url4)
moban=replace(moban,"<!-url5->",url5)
moban=replace(moban,"<!-url6->",url6)
moban=replace(moban,"<!-url7->",url7)
moban=replace(moban,"<!-url8->",url8)
moban=replace(moban,"<!-url1_free->",url1_free)
moban=replace(moban,"<!-url2_free->",url2_free)
moban=replace(moban,"<!-url3_free->",url3_free)
moban=replace(moban,"<!-url4_free->",url4_free)
moban=replace(moban,"<!-url5_free->",url5_free)
moban=replace(moban,"<!-url6_free->",url6_free)
moban=replace(moban,"<!-url7_free->",url7_free)
moban=replace(moban,"<!-content1->",content1)
moban=replace(moban,"<!-content2->",content2)
Set fso = Server.CreateObject("Scripting.FileSystemObject") '创建fso对象
Set fout = fso.CreateTextFile(server.mappath("../html/"&htmlfile))
fout.WriteLine moban
moban=moban1
'-------------------结束
rs.movenext
loop
fout.close%>
<body>
<p>完成生成HTML文件,自动关闭窗口.
<script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 600);
// -->
</script>
</p>
</body>
<%
end if
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -