getxj2.asp

来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 274 行

<!--#include file="setup.asp"-->
<!--#include file="pic.asp" -->
<%
NC_Admin.Check
%>
<%

Server.ScriptTimeOut=5000000


schurl="http://www.gougou.com/rank/top_9_1.html"

page= getHTTPPage(schurl)



s=instr(page,"<div class=""phbox"">")
o=instr(s,page,"回到页首")
page=mid(page,s,o-s)


arrurl=split(page,"<div class=""phbox"">")
	for b=uBound(arrurl) to 1 step -1 

	
	s=instr(arrurl(b),"类别：")+3
	o=instr(s,arrurl(b),"/")-1
	classlb=mid(arrurl(b),s,o-s)  '类别

if classlb="动作" or classlb="冒险" then it=1
if classlb="爱情" then it=2
if classlb="动漫" or classlb="动画" then it=3
if classlb="剧情" or classlb="家庭" or classlb="黑色" or classlb="西部" or classlb="犯罪" then it=4
if classlb="科幻" or classlb="幻想" then it=5
if classlb="喜剧" then it=6
if classlb="恐怖" or classlb="惊悚" then it=7
if classlb="战争" then it=8
if classlb="综艺" or classlb="歌舞" or classlb="音乐" then it=9
if classlb="记录" or classlb="传记" or classlb="悬念" or classlb="历史" then it=10
if classlb="电视剧" or classlb="短片" or classlb="" then it=11
select case it
case 1
typee="动作片"
strSortid = Split(Trim("1,14,动作片"), ",")
case 2
typee="爱情片"
strSortid = Split(Trim("2,12,爱情片"), ",")
case 3
typee="动画片"
strSortid = Split(Trim("3,13,动画片"), ",")
case 4
typee="剧情片"
strSortid = Split(Trim("4,16,剧情片"), ",")
case 5
typee="科幻片"
strSortid = Split(Trim("5,17,科幻片"), ",")
case 6
typee="喜剧片"
strSortid = Split(Trim("6,19,喜剧片"), ",")
case 7
typee="恐怖片"
strSortid = Split(Trim("7,18,恐怖片"), ",")
case 8
typee="战争片"
strSortid = Split(Trim("8,21,战争片"), ",")
case 9
typee="综艺片"
strSortid = Split(Trim("9,20,综艺片"), ",")
case 10
typee="纪录片"
strSortid = Split(Trim("10,15,纪录片"), ",")
case 11
typee="连续剧"
strSortid = Split(Trim("11,22,连续剧"), ",")
end select

	
	s=instr(arrurl(b),"http://")
	o=instr(s,arrurl(b)," target")-1
	searchurl=mid(arrurl(b),s,o-s)  '搜索页URL

	s=instr(o,arrurl(b),"http://")
	o=instr(s,arrurl(b)," alt")-1
	piccurl=mid(arrurl(b),s,o-s)  '图片地址
	picurl=replace(piccurl,"http://imageso.xunlei.com/movie_pic/","")

	s=instr(o,arrurl(b),"alt")+5
	o=instr(s,arrurl(b),"/")-2
	dyname=mid(arrurl(b),s,o-s)  '电影名称

	s=instr(arrurl(b),"导演：")+3
	o=instr(s,arrurl(b),"</li>")
	dname=mid(arrurl(b),s,o-s)  '导演

	s=instr(arrurl(b),"主演：")+3
	o=instr(s,arrurl(b),"</li>")
	zyname=mid(arrurl(b),s,o-s)  '主演

	s=instr(arrurl(b),"地区：")+3
	o=instr(s,arrurl(b),"&nbsp;&nbsp;")
	dqname=mid(arrurl(b),s,o-s)  '地区

	s=instr(arrurl(b),"片长：")+3
	o=instr(s,arrurl(b),"&nbsp;&nbsp;")
	sc=mid(arrurl(b),s,o-s)  '片长

	s=instr(arrurl(b),"语言：")+3
	o=instr(s,arrurl(b),"&nbsp;&nbsp;")
	yyname=mid(arrurl(b),s,o-s)  '语言

	s=instr(arrurl(b),"年份：")+3
	o=instr(s,arrurl(b),"&nbsp;&nbsp;")
	yyear=mid(arrurl(b),s,o-s)  '年份

	if instr(arrurl(b),"查看详细</a>")>5 then
	s=instr(o,arrurl(b),"http://")
	o=instr(s,arrurl(b)," target")-1
	jurl=mid(arrurl(b),s,o-s)  '查看详细URL
	if instr(jurl,"m_id=") then
	else
	s=InstrRev(jurl,"/")+1
	o=InstrRev(jurl,".")
	jur=mid(jurl,s,o-s)
	jurl="http://movie.gougou.com/movie_content?m_id=" & jur
	end if

		pageee= getHTTPPage(jurl)
		sss=instr(pageee,"<div class=""movie_txt"">")
		ooo=instr(sss,pageee,"</div>")
		jjtxt=mid(pageee,sss,ooo-sss)

	else
	jjtxt="本片无简介！"
	end if
'wc=wc &typee & searchurl&picurl&dyname&dname&sc&yyname&yyear&jjtxt&"<br>"
'wc=wc&searchurl &"<br>"
	
%>



<%
set rss=server.createobject("adodb.recordset") 
sql="select * from nc_softinfo where softname like '%"& dyname &"%'"
'sql="select * from nc_softinfo where softname="&dyname          
rss.open sql,conn,1,1 
if rss.eof and rss.bof then
'call ReplaceRemoteUrl(piccurl,SaveFilePath,FileExt)
set rs=server.createobject("adodb.recordset") 
		SQL = "select * from NC_SoftInfo where (softid is null)"
		Rs.Open SQL, Conn, 1, 3
		Rs.addnew
		soid=rs("softid")
		Rs("softname") = dyname  '名称
		Rs("SoftVer") = ""  '版本
		Rs("rootid") = strSortid(0) '本目录ID
		Rs("sortid") = strSortid(1) '分类ID
		Rs("SortName") = strSortid(2) '分类名
		Rs("content") = jjtxt '简介
		Rs("Language") = yyname '语言
		Rs("SoftType") = strSortid(2) '类型
 Randomize
dxx=Int(5*Rnd) 
if dxx<>1 then dxx=0

		Rs("isCommend") =dxx '推荐=1
		Rs("impower") = "" '版本
		Rs("zhuyan") = zyname '主演

 Randomize
dx=Int((780-250+1)*Rnd+250) 


		Rs("SoftSize") = dx*1024 '大小
if len(dname)>49 then dname=mid(dname,1,49)
		Rs("RunSystem") = dname '导演

		Rs("Grades") = 4 '速度
		Rs("Decode") = sc '片长
		Rs("isMember") = 0 '会员软件
		Rs("Homepage") = yyear '年份
		Rs("Contact") = dqname '地区
		Rs("PreviewImg") =picurl '软件小图
		Rs("Softimg") = picurl   '软件小图
		Rs("Errcode") = 0
		Rs("username") = "" '作者
		Rs("searchurl") = searchurl '搜索地址
		Rs("MoneyNum") = 0 '版本
 Randomize
dxxx=Int(5*Rnd) 
if dxxx<>1 then dxxx=0

		Rs("isTop") = dxxx '版本
		Rs("DayHits") = 0
		Rs("WeekHits") = 0
		Rs("MonthHits") = 0
		Rs("Hits") = 0
		Rs("HitsTime") = Now
		Rs("SoftTime") = Now
 Randomize
dxxxx=Int(5*Rnd) 
if dxxxx<>1 then dxxxx=0
		Rs("isUpdate") = dxxxx
		Rs("isLock") = 0
		rs("dyurl")=0
		Rs.Update
		Rs.Close
		Rs.Open "select top 1 softid from NC_SoftInfo order by softid desc", Conn, 1, 1
		pubSoftID = Rs("softid")
		Rs.Close
		SQL = "update NC_softSort set SoftNum=SoftNum+1,isUpdate=1 where depth<>0 and sortid=" & strSortid(1)
		conn.Execute SQL
		SQL = "update NC_softSort set SoftNum=SoftNum+1,isUpdate=1 where depth=0 and rootid=" & strSortid(0)
		conn.Execute SQL
		'//////添加下载连接地址//////

		'//////生成HTML//////
		'NC_Admin.Succeed_Msg ("<li>添加" & Request.Form("softname") & "成功!</li><br>")
		'If Request.Form("isCreateHtml") = "yes" Then NC_Create.CreateSoftInfo (pubSoftID)
		'Set NC_Create = Nothing
		'Response.Write "<meta http-equiv=""refresh"" content=""2;url='" & Request.ServerVariables("HTTP_REFERER") & "'"">" & vbCrLf
wc=wc & "<a href=geturl.asp?id=" & soid&" target=""_blank"">" &dyname & "完成 点击更新URL</a><br>"
else
cz=cz & dyname&"已存在了<br>"
end if

next






Function getHTTPPage(url) 
		dim http 
		set http=Server.createobject("Microsoft.XMLHTTP")
       'Set Http=Server.CreateObject("MSXML2.XMLHTTP")
		Http.open "GET",url,false 
		Http.send() 
		if Http.readystate<>4 then
		   exit function 
		end if 
		getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
		set http=nothing
		if err.number<>0 then err.Clear  
	End function
		
	Function BytesToBstr(body,Cset)
		dim objstream
		set objstream = Server.CreateObject("adodb.stream")
		objstream.Type = 1
		objstream.Mode =3
		objstream.Open
		objstream.Write body
		objstream.Position = 0
		objstream.Type = 2
		objstream.Charset = Cset
		BytesToBstr = objstream.ReadText 
		objstream.Close
		set objstream = nothing
	End Function



%>
<%=wc%><br><br>

<%=cz%>