等着我2016全集完整版:怎样更改这段代码，把网站上边的部分去掉~~

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/06 07:34:20
<%
dim typeid
dim typename
dim typecontent
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytypeID(10000),ArraytypeName(10000)

rs.close
set rs=nothing

set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytyID(10000),ArraytyName(10000),Arraytyview(10000)
if not rs.EOF then
rseof=0

while not rs.EOF
RecordCount=rs.RecordCount
tyID=rs("typeID")
tyName=trim(rs("typeName"))
tycontent=rs("typecontent")
tyview=trim(rs("typeview"))
ArraytyID(i)=tyID
ArraytyName(i)=tyName
Arraytyview(i)=tyview
i=i+1

rs.MoveNext
wend
rs.close
%>

稍微一动，整个网站就打不开了，各位大仙给改改，小弟不胜感激~~

要去掉什么

怎样更改这段代码，把网站上边的部分去掉~~ 怎样去掉皮鞋上边的油渍? 怎样把地址栏上边的“kele8”“寻宝乐趣多”之类的东西去掉，还有“QQ头像”。 这段c代码的循环部分哪儿错了 怎样把MP3歌曲的前奏去掉,只要高潮部分? 怎么把快捷方式上边的小箭头去掉 怎样把有歌代码的歌去掉 怎样把有歌代码的歌去掉 [c]这段代码中注释的部分哪儿有问题 谁能帮我修改一下这段ASP代码调用ACCESS数据库的部分