indexy.asp

一个完整的flash 教程 很不错 适合初学者~

<%
Server.ScriptTimeOut=9000%>
<!-- #include file="conn.asp"-->
<%if request("action")<>"" then%>
<%set rs=server.CreateObject("adodb.recordset")
	sql="select * from pic"
	rs.open sql,conn,1,3%>
<%function getHTTPPage(url) 
		on error resume next 
		dim http 
		set http=Server.createobject("Microsoft.XMLHTTP") 
		Http.open "get",url,false 
		Http.send() 
		if Http.readystate<>4 then
			exit function 
		end if 
		getHTTPPage=bytes2BSTR(Http.responseBody) 
		set http=nothing
		if err.number<>0 then err.Clear  
	end function 
	Function bytes2BSTR(vIn) 
		dim strReturn 
		dim i1,ThisCharCode,NextCharCode 
		strReturn = "" 
		For i1 = 1 To LenB(vIn) 
			ThisCharCode = AscB(MidB(vIn,i1,1)) 
			If ThisCharCode < &H80 Then 
				strReturn = strReturn & Chr(ThisCharCode) 
			Else 
				NextCharCode = AscB(MidB(vIn,i1+1,1)) 
				strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
				i1 = i1 + 1 
			End If 
		Next 
		bytes2BSTR = strReturn 
	End Function %>

<%dim shuzi,id1,id2
id1=request("id1")
id2=request("id2")
shuzi=id1
For shuzi=id1 To id2

%>

<%

dim id,page,cardtype,search,mj_top,mj_top0,mj_top1,mj_top2,mj_body,mj_b,mj_e,mj_diary,start1,over1,bt1,bt2,biaoti,js,js1,js2,flname,flname1,flname2

on error resume next 

     subjectno=shuzi
	url="http://www.flash8.net/flash.aspx?id="&subjectno&""
	mj_code=getHTTPPage(url)
        mj_top=mj_code	
	if err.number=0 then
	flname1=Instr(mj_top,"?s_id=")
	flname2=Instr(flname1,mj_top,">")
	flname=mid(mj_top,flname1+6,flname2-flname1-7)
	bt1=Instr(mj_top,"<TITLE>")
	bt2=Instr(bt1,mj_top,"- flash")
	biaoti=mid(mj_top,bt1+7,bt2-bt1-7)
	js1=Instr(mj_top,"作品说明:")
	js2=Instr(js1,mj_top,"</table>")
	js=mid(mj_top,js1+148,js2-js1-236)
    sg1=Instr(mj_top,"?username=")
    sg2=Instr(sg1,mj_top,"'>")
	sg=mid(mj_top,sg1+10,sg2-sg1-10)
   	start=Instr(mj_top,"flash8:player src=")
	msgg=Instr(start,mj_top," width=""550""")
	over=Instr(mj_top,"<param name=""quality""")
        gg=msgg-start
	mj_top=mid(mj_top,start+19,gg-20)
		else 
		wscript.echo err.description
	end if
%>
<%
if start>0 then
dim rsf,sqlf,fl1,fl2
flname=clng(flname)
set rsf=server.CreateObject("adodb.recordset")
	sqlf="select * from fl2 where fl2id="&flname
	rsf.open sqlf,conn,1,1
	fl1=rsf("col1")
	fl2=rsf("col2")
rs.addnew
rs("shuzi")=shuzi
rs("biaoti")=biaoti
rs("content")=mj_top
rs("sg")=sg
if js<>"" then
rs("js")=js
end if
if fl1<>"" and fl2<>"" then
rs("fl1")=fl1
rs("fl2")=fl2
end if
rs.update
end if%>
<%next%>
添加成功，
返回首页看看<a href="index.asp">首页</A>
<%else%>
<form name="form1" method="post" action="indexy.asp?action=add" >
  <table width="800" border="1" align="center" cellpadding="0" cellspacing="1" bgcolor="CCCCCC" bordercolor=ffffff>
    <tr> 
      <td width="42%" rowspan="2" align="center" bgcolor="">选取ID范围</td>
      <td width="58%" bgcolor=""> 
      <input name="id1" type="text" id="id1" value="<%=Request.form("id1")%>" size="20" ></td>
    </tr>
    <tr> 
      <td bgcolor="">
      <input name="id2" type="text" id="id2"  value="<%=Request.form("id2")%>" size="20" >&nbsp;
      <input type="submit" value="开始" name="B1"></td>
    </tr>
        <tr align="left"> 
      <td colspan="2" bgcolor="" style="font-size:12px"><p><br>
          &nbsp;说明：<br>
          &nbsp;&nbsp;&nbsp;&nbsp; 使用“<font color="#FF0000">MSXML2.XMLHTTP</font>”对象搜索远程服务器上的数据，并将其信息处理得到所需要的真实flash地址，flash名称。
          <br>&nbsp; 使用方法：在ID范围内输入两个数字，后者大于前者，
<br>因为他网站上的flash资源编号是从id ，1678开始的，2591结束，<br>所以大家测试的时候请输入比1678大比2591小的数字，欢迎大家去我的小站讨论，
        <p align="center"><br>
          
          <br>
        </p></td>
    </tr>
    </table>
</form>

<%end if%>