Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: ''

版权声明:学习笔记 https://blog.csdn.net/u013167299/article/details/42153613

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

    
通常是这个对象已经关闭了,你现在又关闭一次!!

Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象

10-15

rnrn<%rn dim classidrn classid = request("classid")rn%>rn<%rnset rs=server.createobject("adodb.recordset")rnsqltext="select * from job order by id desc"rnrs.open sqltext,conn,1,1rnrndim MaPerPagernMaPerPage=4rnrndim text,checkpagerntext="0123456789"rnRs.PageSize=MaPerPagernfor i=1 to len(request("page"))rncheckpage=instr(1,text,mid(request("page"),i,1))rnif checkpage=0 thenrnexit forrnend ifrnnextrnrnIf checkpage<>0 thenrnIf NOT IsEmpty(request("page")) ThenrnCurrentPage=Cint(request("page"))rnIf CurrentPage < 1 Then CurrentPage = 1rnIf CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCountrnElsernCurrentPage= 1rnEnd IfrnIf not Rs.eof Then Rs.AbsolutePage = CurrentPage end ifrnElsernCurrentPage=1rnEnd ifrnrncall listrnrn'显示帖子的子程序rnSub list()%>rn 西安市兴汉办公家具有限公司rn rn rnrn rnrn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn  人才招聘rn rn rn rn rn rn <%rnif not rs.eof thenrni=0rndo while not rs.eofrn%>rn rn rn rn rn rn rn rn 招聘对象rn <%=rs("Duix")%>rn rn rn rn 招聘人数rn <%=rs("Rens")%>rn rn rn rn 工作地点rn <%=rs("did")%>rn rn rn rn 工资待遇rn <%=rs("daiy")%>rn rn rn rn 发布时间rn <%=rs("time")%>rn rn rn rn 有效期限rn <%=rs("Qix")%>rn rn rn rn 招聘要求rn <%=rs("yaoq")%>rn rn rn ">应聘此岗位 rn rn rn rn rn rn <% rni=i+1 rnif i >= MaPerpage then exit do rnrs.movenext rnloop rnend if rn%> rn rn rn rn <%rnResponse.write "-> 全部-"rnResponse.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条招聘信息 "rnResponse.write "第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " "rnIf currentpage > 1 Thenrnresponse.write "首页 "rnResponse.write "上一页 "rnElsernResponse.write "上一页 "rnEnd ifrnIf currentpage < Rs.PageCount ThenrnResponse.write "下一页 "rnResponse.write "尾页 "rnElsernResponse.write ""rnResponse.write "下一页 "rnEnd ifrn%> <%rnEnd subrnrs.closern%> rn rn rn rn rn rn rn rn rn rn rn rn rnrn

Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: 'Rs'

05-03

运行时的错误:rnMicrosoft VBScript 运行时错误 错误 '800a01a8' rnrn缺少对象: 'Rs' rnrn/top.asp,行 18 rn----------------------------------------------------rnASP内容写下面rn======================================================rnconn.asp 内容↓rn*************************************************************rn<%rnrn''数据库连接,开始----------------------------------------rnrndb="Data/TEAM.mdb"rnSet conn=Server.CreateObject("ADODB.Connection")rnconnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)rnrn''response.write(Server.MapPath(db))rnrnconn.Open connStrrnrnfunction closeDatabase()'关闭数据库的函数rn conn.closern set conn=nothingrnend functionrnrn''数据库连接,结束----------------------------------------rn%>rnrnrn----------------------------------------------------------------rnasp.asp 的内容↓rn---------------------------------------------------------------rn<%rn/* 说明下 select top 1 * from Forum where Deltopic=0 and CloseTopic=0 and Locktopic=0 and Auditing=0 order by ID desc 这查询的表都纯在 并且无错误 */rnsql="select top 1 * from Forum where Deltopic=0 and CloseTopic=0 and Locktopic=0 and Auditing=0 order by ID desc"rnset rs=conn.execute(sql)rn'set rs=server.CreateObject("ADODB.Recordset") rnif(rs.eof and rs.bof) thenrnresponse.write("暂无图片。")rnelserndo while not(rs.eof)rn%>rn <%rs=("content")%>rn<%rnRS.movenext rnlooprnend ifrnrs.closernset rs=nothingrn%>rnrnrn运行后 得出:rnMicrosoft VBScript 运行时错误 错误 '800a01a8' rnrn缺少对象: 'Rs' rnrn/top.asp,行 18 rnrnrn小弟刚入门,懂的不是很多,还请各位哥哥姐姐 弟弟妹妹多多帮忙rn小弟感激不尽!rn本人QQ:345355377 广交天下好友

总有这样提示“Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: ''”

04-27

麻烦各位高手帮我分析以下rnrn<%rn Dim Connrn Dim ConnStrrnSet Conn = Server.CreateObject("ADODB.Connection")rn 'ConnStr = "Provider = Sqloledb; User ID =IUSR_XT; Password =; Initial Catalog = firm; Data Source = 127.0.0.1;Trusted_Connection=yes"rn ConnStr = "DRIVER=SQL Server;SERVER=127.0.0.1;UID=IUSR_XT;PWD=;Database=firm;Trusted_Connection=yes"rn Conn.Open ConnStrrnSet rs = Server.CreateObject("ADODB.Recordset") rn Set rs.ActiveConnection = connrn rs.open "select * from firm_producequality_zlbz_国家标准" rn Response.Write("表《国际标准》中包含 " & CStr(rs.RecordCount) & " 条记录 ") rn rn%>rn rn rn<%rnfor i=1 to rs.fields.count-1rn resopnse.write" "&rs(i).name&""rnnextrn%>rn rn<%rnrs.movefristrn while not rs.eofrn row=" "rn for i=0 to rs.fields.count-1rn row=row&" "&rs(i)&""rn nextrn response.wriet row&""rn rs.movenextrn wendrn%>rn rn<%rnmyconn.closernResponse.Write("数据库已经关闭")rn%>rnrn我写了以上代码可是总有这样提示:rn————————————————-----------rn表《国际标准》中包含 -1 条记录rnrnMicrosoft VBScript 运行时错误 错误 '800a01a8' rn缺少对象: '' rnrn/cpzl/dddd.asp,行27 rn——————————————————————rn1. 数据库的表中有20条记录,怎么显示-1条呢?rn2.这跟表中字段类型有关系吗?(标题:varchar型,内容:varchar型,这样对吗?最好用那种类型)rn3缺少什么对象?rn请大家指教,谢谢!

Microsoft VBScript 运行时错误 错误 '800a01a8' 求助

10-08

Microsoft VBScript 运行时错误 错误 '800a01a8' rnrn缺少对象: '' rnrn/idreg.asp,行 76 rnrnrnidreg.asp 文件代码rnrn<%rnextcode=int(request.form("extcode"))rnextcoded=request.form("extcoded")rnps_loginname=request.form("ps_loginname")rnps_password=request.form("ps_password")rnps_repassword=request.form("ps_repassword")rnps_email=request.form("ps_email")rnps_person_id=request.form("ps_person_id")rn%>rn<% rndim errormsgrnerrormsg="请重新填写注册资料!"rnif instr(ps_loginname,"'")<>0 or instr(ps_loginname,"=")<>0 or instr(ps_loginname,"&")<>0 or instr(ps_loginname,"%")<>0 thenrnresponse.write " "rnresponse.endrnend ifrnif len(ps_loginname) < 4 thenrn errormsg=" 您设定的用户帐号长度小于4位,服务器不能接受! " & errormsgrnend ifrnif len(ps_loginname) > 15 then rn errormsg=" 您设定的用户帐号长度大于15位,服务器不能接受! " & errormsgrnend ifrnif len(ps_password) < 4 then rn errormsg=" 您的密码长度小于4位,服务器不能接受! " & errormsgrnend ifrnif len(ps_password) > 15 then rn errormsg=" 您的密码长度大于15位,服务器不能接受! " & errormsgrnend ifrnif ps_password <> ps_repassword then rn errormsg=" 您两次输入的密码不相同,请返回上一步正确输入您的密码!"rnend if rnif len(ps_email) < 5 then rn errormsg=" 请填写您的电子邮箱地址"rnend ifrnif len(ps_person_id) > 10 then rn errormsg=" 您输入的名字太长了,请重新填写!"rnend ifrnif extcode<>int(session("yzm")) or extcode=0 then rn rnerrormsg=" 您输入的认证码不正确! " & errormsgrnrnend ifrnrn%>rnrnrnrn rn RF GIGA 3 阳光科技rn rn rnrnrnrn rn rn rn <% rn if errormsg="请重新填写注册资料!" then rn%>rn<%rnset rs1 = Server.CreateObject("ADODB.Recordset")rn'sql="select * from x2o_user where UserId = '"&ps_loginname&"'" rn'dim idrn'set id=1rnsql="select UserId from x2o_user where UserId = '"&ps_loginname&"'" rn'rs1.open sql,conn,1,3rnset rs1=conn.execute(sql)rnrnif not rs1.eof then rn 'if rs1("UserId")=ps_loginname thenrn response.write " "rn response.endrn ' " & chr(21) & "alert('用户名已经有人使用');" & "history.back()" & ""rnelsern set rs2 = Server.CreateObject("ADODB.Recordset")rn sql="INSERT INTO x2o_user1 (UserId,Password,UserName,email,JuminNo,zipcode,address1,address2,tel,handphone,sex,job,mod_date,regdate,resident,agreement,EmailFlag,RealName,lastlogin,Usertype) VALUES ('"&ps_loginname&"','"&ps_password&"','"&ps_person_id&"','"&ps_email&"','1','1','1','1','1','1','1','1','2006-9-9','2006-9-9','1','1','1','1','2006-9-9','1')"rn set rs2=conn.execute(sql)rn 'userbill=rs("ut_userid")rnend ifrnrnif 1>0 thenrn set rs3 = Server.CreateObject("ADODB.Recordset")rn sql="INSERT INTO x2o_user (UserId,Password,UserName,email,JuminNo,zipcode,address1,address2,tel,handphone,sex,job,mod_date,regdate,resident,agreement,EmailFlag,RealName,lastlogin,Usertype) VALUES ('"&ps_loginname&"','"&ps_password&"','"&ps_loginname&"','"&ps_email&"','1','1','1','1','1','1','1','1','2006-9-9','2006-9-9','1','1','1','1','2006-9-9','1')"rn set rs3=conn.execute(sql)rn rn rnend ifrnrnif 1>0 thenrn set rs4 = Server.CreateObject("ADODB.Recordset")rn sql="INSERT INTO rf_web.dbo.account_sound_team (id) VALUES ('"&ps_loginname&"')"rn set rs4=conn.execute(sql)rn rn rnend ifrnrnif 1>0 thenrn set rs5 = Server.CreateObject("ADODB.Recordset")rn sql="INSERT INTO account_sound_team (id) VALUES ('"&ps_loginname&"')"rn set rs5=conn.execute(sql)rn response.write " "rn rnend ifrn%>rn rn rn 注册成功,请牢记您的注册资料 rn 希望您的游戏旅程愉快!rn rn rn rn 用 户 名rn <%=ps_loginname%>rn rn rn 密  码rn <%=ps_password%>rn rn rn <%else%> rn rn rn 很抱歉,您没有注册成功。 rn原因如下:rn rn rn <%=errormsg%>rn rn rn Travia 0.1 rnPowered by:阳光科技 rnCopyright 2004- 2005 rn <%end if%>rn rn rn rn rn rn rnrnrnrnrnrnrnrn

Microsoft VBScript 运行时错误 (0x800A01A8) 缺少对象: ''

02-16

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>rnrn<%rnaction="abc"rnaction = Request.QueryString("action")rnif ON_chongzhi <> "1" thenrn chars="会员在线充值系统被管理员关闭,请联系管理员"rnelserndim charsrnIf Request.Form("account")="" Thenrn chars = "卡号不能为空"rnend IfrnIf Request.Form("numcode")="" or Request.Form("numcode")<>action Thenrn chars = "请输入正确的验证码" rnelsernid=Request.Form("account")rnrndim tmpdb1rnSet tmpdb1 = Server.CreateObject("ADODB.Recordset")rntmpdb1.ActiveConnection = MM_data_STRING1rntmpdb1.Source = "SELECT * FROM Data where Name='" & Request.Form("jiaoshe") & "' and other='" & Request.Form("qu") & "'"rntmpdb1.CursorType = 0rntmpdb1.CursorLocation = 2rntmpdb1.LockType = 1rntmpdb1.Open()rnrn if not tmpdb1.eof thenrn chars=" 你的当前帐号还有 " & (tmpdb1.fields("Stopdate")- date) & "天"rn elsern chars="角色名不存在"rn end ifrnend ifrnend ifrnrn%>rn rn rnrn rn rn rn rn rn rn  rn rn rn rn rn rn rn <% if not tmpdb1.eof then %>rn rn rn 序号rn 帐号rn 到期日期rn 类型rn 所在区rn rn rn <%=tmpdb1.fields("idx")%>rn <%=tmpdb1.fields("name")%>rn <%=tmpdb1.fields("Stopdate")%>rn <%=tmpdb1.fields("leixin")%>rn <%=tmpdb1.fields("other")%>rn rn rn <% = chars %>rn rn <% rn elsern Response.Write("此帐号不存在")rn end if %>rn rn rn rn rn rn rn rn rn    rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rnrn<%rntmpdb1.closern set tmpdb1=nothingrn %>rnrn

asp报错:Microsoft VBScript 运行时错误 '800a01a8'

12-20

系统在生成前台静态页面的时候出错,有些前台页面可以正常生成,有的不能rnrn[color=#FF0000]报错信息如下:rnMicrosoft VBScript 运行时错误 '800a01a8' rnrn缺少对象: 'ars2' rnrn\hhmm\zm_productview.asp, line 227rnrnrnrn--------------------------------------------------------------------------------rn[Aws V2.3][/color] rnrnrn[b]文件zm_productview.asp如下[/b]rnrn<%rnrn'==读取产品内容rn'id=255rnid=Request("id")rnif id="" or not isnumeric(id) thenrnResponse.Write(" ")rnResponse.End()rnend ifrnrnsql="select * from zm_product where id="&idrnset rs=server.CreateObject("ADODB.Recordset")rnrs.open sql,conn,1,3rntypeid=rs("Tid")rnrn'==所在位置rnpossql="select * from Zm_Product_Type where id="&rs("Tid")rnset posrs=conn.execute(possql)rnif not posrs.eof thenrn pro_class_id=posrs("id")rn pro_class_pid=posrs("pid")rn pro_class=posrs("Name")rn if pro_class_pid<>0 thenrn possqlb="select * from Zm_Product_Type where id="&pro_class_pidrn set posrsb=conn.execute(possqlb)rn pro_class_id=posrsb("id")rn pro_class=posrsb("Name")rn posrsb.closern set posrsb=nothingrn end ifrnend ifrnposrs.closernset posrs=nothingrnrnpos = "首页 > "&pro_class&" > "rnpos = pos &""&rs("name")&""rnrnif rs.eof thenrnResponse.Write(" ")rnResponse.End()rnend ifrnrs("hit")=rs("hit")+1rnrs.updaternproductname=rs("name")rnproducttime=rs("addtime")rnproducthit=rs("hit")rnproductinfo=rs("info")rnproductimg=""rnProduct_Other_Info = " 产品名称: " & rs("name") & " 产品编号: " & rs("pro_code") & " 所属类别: " &pro_class&" >> "& rs("sort_name") & " "&productname&"报价: " & rs("remarks") & ""rnseo_t=rs("seo_t")rnseo_k=rs("seo_k")rnseo_d=rs("seo_d")rnseo_r_p = rs("re_pro")rnseo_r_n = rs("re_news")rnrs.closernset rs=nothingrnrn'== 读取内页友情链接rnsqllink="select top 20 * from zm_link1 order by ord asc"rnlink1=" "rnSet rslink=conn.execute(sqllink)rni = 1rndo while not rslink.eofrn if i = 1 thenrn link1=link1&" "&rslink("name")&""rn elsern link1=link1&" | "&rslink("name")&""rn end ifrn i = i + 1rnrslink.MoveNextrnlooprnlink1=link1&""rnrslink.ClosernSet rslink=Nothingrnrnrnpsql1="select * from pro_about where TypeID="&typeidrnset prs1=conn.execute(psql1)rnif not prs1.eof thenrn keyword1=prs1("keyword1")rn keyword2=prs1("keyword2")rn count1=prs1("count1")rn count2=prs1("count2")rn onoff1=prs1("onoff1")rn onoff2=prs1("onoff2")rn pro_type1=keyword1rn pro_type2=keyword2rn prs1.closern set prs1=nothingrnelsern onoff1=falsern onoff2=falsern pro_type1=""rn pro_type2=""rnend ifrnrnrnrnpsql2="select * from news_about where TypeID="&idrnset prs2=conn.execute(psql2)rnif not prs2.eof thenrn keyword3=prs2("keyword1")rn keyword4=prs2("keyword2")rn count3=prs2("count1")rn count4=prs2("count2")rn onoff3=prs2("onoff1")rn onoff4=prs2("onoff2")rn news_type1=keyword3rn news_type2=keyword4rn prs2.closern set prs2=nothingrnelsern onoff3=falsern onoff4=falsern news_type1=""rn news_type2=""rnend ifrnrn'if count1=0 then count1=5rn'if count2=0 then count2=5rn'if count3=0 then count3=5rn'if count4=0 then count4=5rnrn'左侧相关产品rnproduct_left_about1=""rnrnif onoff1=true thenrn if count1<>0 and keyword1<>"" thenrn asql1="select top "&count1&" * from Zm_Product where Name like '%"&keyword1&"%' order by id desc"rn set ars1=conn.execute(asql1)rn if not ars1.eof thenrn i=1rn do while not ars1.eofrn product_left_about1=product_left_about1&" "&ars1("Name")&""rn ars1.movenextrn i=i+1rn if i>count1 then exit dorn looprn elsern product_left_about1=" 暂无任何相关信息"rn end ifrn ars1.closern set ars1=nothingrn elsern product_left_about1=" 暂无任何相关信息"rn end ifrnrnelsern product_left_about1=" 暂无任何相关信息"rnend ifrnrnrnproduct_left_about2=""rnif onoff2=true thenrn if count2<>0 and keyword2<>"" thenrn asql2="select top "&count2&" * from Zm_Product where Name like '%"&keyword2&"%' order by id desc"rn set ars2=conn.execute(asql2)rn if not ars2.eof thenrn i=1rn do while not ars2.eofrn product_left_about2=product_left_about2&" "&ars2("Name")&""rn ars2.movenextrn i=i+1rn if i>count2 then exit dorn looprn elsern product_left_about2=" 暂无任何相关信息"rn end ifrn ars2.closern set ars2=nothingrn elsern product_left_about2=" 暂无任何相关信息"rn end ifrn rnelsern product_left_about2=" 暂无任何相关信息"rnend ifrnrn'左侧相关新闻rnnews_left_about1=""rnif onoff3=true thenrn if count3<>0 and keyword3<>"" thenrn asql1="select top "&count3&" * from Zm_News where Title like '%"&keyword3&"%' order by id desc"rn 'response.Write asql1rn 'response.End()rn set ars1=conn.execute(asql1)rn if not ars1.eof thenrn i=1rn do while not ars1.eofrn news_left_about1=news_left_about1&" "&ars1("Title")&""rn ars1.movenextrn i=i+1rn if i>count3 then exit dorn looprn elsern news_left_about1=" 暂无任何相关信息"rn end ifrn ars1.closern set ars1=nothingrn elsern news_left_about1=" 暂无任何相关信息"rn end ifrn rnelsern news_left_about1=" 暂无任何相关信息"rnend ifrnrnnews_left_about2=""rnif onoff4=true thenrn if count4<>0 and keyword4<>"" thenrn asql2="select top "&count4&" * from Zm_News where Title like '%"&keyword4&"%' order by id desc"rn set ars2=conn.execute(asql2)rn if not ars2.eof thenrn i=1rn do while not ars2.eofrn news_left_about2=news_left_about2&" "&ars2("Title")&""rn ars2.movenextrn i=i+1rn if i>count4 then exit dorn looprn elsern news_left_about2=" 暂无任何相关信息"rn end ifrn elsern news_left_about2=" 暂无任何相关信息"rn end ifrn ars2.closern set ars2=nothingrnelsern news_left_about2=" 暂无任何相关信息"rnend ifrnrnrn'获取相关产品rnif seo_r_p <> "" thenrn rele_product = " "rn re_pro_id = Split(seo_r_p)rn j=1rn for i = 0 to Ubound(re_pro_id)rn sql2 = "select * from zm_product where id = " & Cint(re_pro_id(i))rn set rs2 = Conn.Execute(sql2)rn' do while not rs2.eofrn if j mod 8 = 1 thenrn rele_product = rele_product & " " & rs2("name") & "" rn elseif j mod 8 = 0 thenrn rele_product = rele_product & " " & rs2("name") & ""rn elsern rele_product = rele_product & " " & rs2("name") & ""rn end ifrn' rs2.Movenextrn j = j + 1rn' looprn rs2.Close()rn Set rs2 = Nothingrn nextrn' if j mod 8 = 0 thenrn' rele_product = rele_product & ""rn' elsern rele_product = rele_product & ""rn' end ifrnend ifrnrn'获取相关信息rnif seo_r_n <> "" thenrn sql2 = "select top 8 * from zm_news where Title like '%" & seo_r_n & "%'"rn set rs2 = Server.CreateObject("ADODB.Recordset")rn rs2.Open sql2, conn, 1, 3rn rele_info = " "rn do while not rs2.eofrn rele_info = rele_info & " "&rs2("Title")&" ["&datevalue(rs2("Addtime"))&"]"rn rs2.MoveNextrn looprn rele_info = rele_info & ""rn rs2.Closern Set rs2 = Nothingrnend ifrn%>

Microsoft VBScript 运行时错误 错误 '800a01a8' ,(小柔)急~~~~~~

06-13

Microsoft VBScript 编译器错误 错误 '800a03f6' rnrn缺少 'End' rnrn/iisHelp/common/500-100.asp,行242 rnrnMicrosoft VBScript 运行时错误 错误 '800a01a8' rnrn缺少对象: 'conn' rnrn/asp/admin_mfk_news.asp,行30rn是什么错误啊?rn rn<%rnrndim actionrnaction=trim(request("action"))rnselect case actionrncase "edit"rncall editrncase "del"rncall delrncase "editok"rncall editokrncase elsernresponse.write(" ")rnend selectrnsub delrndim idrnid=trim(request("id"))rnsql="delete * from news where id="&idrnconn.execute(sql)rncloseconnrnresponse.write(" ")rnend subrnsub editrndim idrnid=trim(request("id"))rnif id="" or not isnumeric(id) thenrnresponse.write(" ")rnend ifrnset rs=conn.execute("select * from news where id="&id)rnif rs.eof or rs.bof thenrncloseconnrnresponse.write(" ")rnend ifrn%>rn rn rn rn rn  编辑新闻 rn rn rn 新闻标题:rn ">rn rn rn 新闻选项:rn 日期:rn ">rn 置顶:rn > rn rn rn 追加上传:rn rn rn rn 新闻内容:rn <%=rs("ntext")%>rn rn rn rn   rn rn rn rnrn<%rnclosers(rs)rnend subrnsub editokrndim ntitle,ndt,ntop,ntext,idrnntitle=replace(trim(request("ntitle")),"'","")rnndt=replace(trim(request("ndt")),"'","")rnntop=request("ntop")rnntext=replace(request("ntext"),"'","”")rnid=trim(request("id"))rnif ntop="y" thenrnntop=1rnelsernntop=0rnend ifrnusql="update news set ntitle='"&ntitle&"',ndt='"&ndt&"',ntop='"&ntop&"',ntext='"&ntext&"' where id="&idrnconn.execute(usql)rncloseconnrnresponse.write(" ")rnend subrncall manageendrn%>rn帮我看看rn

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试