Microsoft OLE DB Provider for SQL Server 错误 '80040e14'
列名 '1' 无效。
/p2p/p2p_3.asp，行 91
下面是代码 <%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="Sql_Function.asp" -->
<!--#include file="../conn.asp" -->
<!--#include file="Sql_Md5.asp" -->
<!--#include file="cdkey.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html"; charset=gb2312"">
<Title>qq500 - 电影采集</Title>
</head>
<body>
<%
id=(request("id"))'分页
id2=(request("id2"))'分类
id3=(request("id3"))'是否保存图片
OverID = Request("OverID")
''''''''''''''获取电影列表页相关参数''''''''''''''''''''''''''''''''''''
url="http://www.pp023.com/class_"&id2&".html"
Html=GetPage(url)
If Instr(Html,"<TITLE>重庆宽频欢迎您</TITLE>") Then
Response.Write("该片已经过期，自动更新下一部...")
Call NextID1
Response.End
End If'跳过没有的
movie=GetContent(Html,"<body leftmargin=0 topmargin=0 onmousemove='HideMenu()'>","</body>",0)
movie=Split(movie,"频道ID")
movieOverId=ubound(movie)
Response.Write "该《"&id2&"》频道下共有电影<font color=""blue""><b>"&movieOverId&"</b></font>个<br>"
response.flush
for movieStartID=1 to movieOverId
''''''''''循环获取内容页链接''''''''''''''''
Movie_ID=GetContent(movie(movieStartID),"[","]",0)
Response.Write "--------------------------------------------------------------------<br>"
Response.Write "第<font color=""red"">"&movieStartID&"</font>个*("&Movie_ID&")<br>"
''''''''''''''''''''''获取电影内容信息''''''''''''''''''''''''''''''''''''''''''''''''
url="http://www.pp023.com/p0p/"&Movie_ID&".asp?id="&cdkey&""
'url="http://www.pp023.com/movie/html/"&OverID&".html"
Html=GetPage(url)
If Instr(Html,"<TITLE>重庆宽频欢迎您</TITLE>") Then
Response.Write("该片"&Movie_ID&"已经过期或失效，服务器已将其删除，自动更新下一部...")
Call NextID1
Response.End
End If'跳过没有的
'优化后直接获取相关信息开始
Mov_Title=GetContent(Html,"<!--名称开始","名称结束-->",0)
Mov_Class=GetContent(Html,"<!--分类开始","分类结束-->",0)
Mov_Softversion=GetContent(Html,"<!--标记开始","标记结束-->",0)
Mov_From=GetContent(Html,"<!--作者开始","作者结束-->",0)
Mov_oper=GetContent(Html,"<!--平台开始","平台结束-->",0)
Mov_Star=GetContent(Html,"<!--主演开始","主演结束-->",0)
Mov_Image=GetContent(Html,"<!--图片开始","图片结束-->",0)
Mov_Body=GetContent(Html,"<!--简介开始","简介结束-->",0)
Mov_Body=replace(Mov_Body,vbcrlf,"")
Mov_Body=Left(Mov_Body,850)
Mov_Body=Mov_Body&"……"
Mov_Url=GetContent(Html,"<!--地址开始","地址结束-->",0)
'优化后直接获取相关信息结束
Response.Write "电影ID：<font color='#FF0000'>"&OverID&"</font><br>"
response.flush
Response.Write "电影名称：<font color='#FF0000'>"&Mov_Title&"</font><br>"
response.flush
Response.Write "电影主演："&Mov_Star&"<br>"
response.flush
Response.Write "电影分类："&Mov_Class&"<br>"
response.flush
Response.Write "电影图片："&Mov_Image&"<br>"
response.flush
Response.Write "剧情简介：<span Mov_Title='"&body&"'>此处略"&len(Mov_Body)&"字。</span><br>"
response.flush
''''''''''''连接动易数据库开始''''''''''''''''''''
'动易的库不是自动编号↓↓↓↓↓↓↓
set rs=server.createobject("adodb.recordset")
rs.open "select SoftID from PE_Soft order by SoftID desc",conn,1,1
if not(rs.bof and rs.eof) then
maxsoftid = rs("SoftID") + 1
else
maxsoftid = 1
end if
rs.close
set rs=nothing
''动易的库不是自动编号↑↑↑↑↑↑↑
'检查是否已经添加
set rs=server.createobject("adodb.recordset")
Sql="Select * from PE_Soft Where channelid=1001 and SoftVersion= """&Mov_Softversion&""" "
Rs.Open Sql,Conn,1,3
if not Rs.Eof And not Rs.Bof Then
if rs("downloadurl")=Mov_Url Then
rs("operatingsystem")=Mov_oper
rs.update
Response.Write "<font color='#990099'>该片不需要更新</font><br>"
else
rs("SoftName")=Mov_Title
rs("copyfrom")=Mov_From
rs("operatingsystem")=Mov_oper
rs("downloadurl")=Mov_Url
rs("updatetime")=now
rs.update
Response.Write "电影名称存在...不下载图片<font color='#990099'>只更新地址</font><br>"
end if
else
'保存图片↓↓↓↓↓↓↓
if Mov_Image="" then
Mov_Image="../Images/No_pic.gif"'修改此处路径"对不起暂无图片"
ID1="False"
else
Mov_Image=Mov_Image
ID1="True"
end if
''''''''''判断该参数是否保存开始
if id1="True" then
'''''''''保存图片参数设置''''''''''
ShengChengID="05809"&OverID&"play"
ShengChengID="../movie/UploadSoftPic/p2p/"&GenerateRandomFileName(Movie_ID)&".jpg"'修改保存路径
Mov_Image2=replace(ShengChengID,"../movie/UploadSoftPic","UploadSoftPic")
''''''''检查生成路径''''''''''''
fldr=""
picyl=ShengChengID
picylurl=picyl
if left(picylurl,1)="/" then picylurl=right(picyl,len(picylurl)-1)
Response.Write"预览图片：<a href='" &ShengChengID& "' target='_blank'>" &ShengChengID& "</a>"
Response.Write "<br>"
response.flush
If IsExists(picylurl)=false then
GetNewsFold=split(picylurl,"/")
For i=0 to Ubound(GetNewsFold)-1
if fldr="" then
fldr=GetNewsFold(i)
else
fldr=fldr&"\"&GetNewsFold(i)
end if
If IsFolder(fldr)=false then
call CreateFolder(fldr)
End if
Next
'''''''保存'''''''''''''''''
imgurl=Mov_Image
imgfilename=Mov_Image2
saveimage Mov_Image,ShengChengID
End if
response.flush
'''''''''''''''''''''''''''''''''''
else
Response.Write "不下载图片<br>"
Mov_Image2=Mov_Image
end if
'''''''''''''判断是否保存结束
response.flush
'保存图片↑↑↑↑↑↑↑
Rs.AddNew
rs("SoftID")=maxsoftid
rs("channelid")="1001"
rs("classid")=Mov_Class
rs("SoftName")=Mov_Title
rs("softversion")=Mov_Softversion
rs("author")=Mov_From
rs("copyfrom")=Mov_From
rs("demourl")="http://"
rs("inputer")="admin"
rs("editor")="admin"
rs("keyword")="|免费电影|"
rs("hits")="0"
rs("dayhits")="0"
rs("weekhits")="0"
rs("monthhits")="0"
rs("updatetime")=now
rs("createtime")=now
rs("operatingsystem")=Mov_oper
rs("softtype")="rm"
rs("softlanguage")="港台"
rs("CopyrightType")="免费电影"
rs("softsize")="0"
rs("regurl")="http://"
rs("status")="3"
rs("softintro")=Mov_Body
rs("softpicurl")=Mov_Image2
rs("downloadurl")=Mov_Url
rs("stars")="3"
rs("templateid")="0"
rs("skinid")="0"
rs("pitchtime")="24"
rs("readtimes")="10"
rs("MY_主演")="Mov_Star"
rs.update
Response.Write "<font color='#990099'>成功</font>添加电影...<font color='#990099'>并保存图片</font><br>"
end If
rs.close
Set Rs = Nothing
''''''''''''连接动易数据库结束'''''''''''''''''''
NEXT
call NextID1
Sub NextID1()
Response.Write "<font color=red size=4><b>更新完毕！</b></font>"
End Sub
%>
</body>
</html>
