全球主机交流论坛

标题: ASP高手快来啊 [打印本页]

---

作者: 553993    时间: 2013-9-27 12:08
标题: ASP高手快来啊

1. <%@ Language=VBScript %>
   
2. <%
   
3. if Application("domain_database")="" then
   
4. datafile="coc/dom.asp"
   
5. connstr="Provider=Microsoft.Jet.OLEDB.4.0;"&_
   
6.                 "Data Source="& Server.MapPath(datafile)
   
7. set conn=Server.CreateObject("ADODB.CONNECTION")
   
8. Set rs=Server.CreateObject("ADODB.RecordSet")
   
9. conn.Open connstr
   
10. Application("domain_database")=connstr
    
11. domain_info=""
    
12. rs.Open ("select [domain],[ad],[height],[width],[url] from [domain] order by [top] desc"),conn,1,1
    
13. do while not (rs.bof or rs.eof)
    
14. domain_info=domain_info&rs(0)&"|"&rs(1)&"|"&rs(2)&"|"&rs(3)&"|"&rs(4)&"|"
    
15. rs.movenext
    
16. loop
    
17. Application("domain_online")=0
    
18. Application("domain_info")=domain_info
    
19. rs.close
    
20. rs.Open ("select [filter],[sift] from [system]"),conn,1,1
    
21. Application("domain_filter")=rs(0)
    
22. Application("domain_sift")=rs(1)
    
23. rs.Close
    
24. set rs=nothing
    
25. conn.Close
    
26. set conn=nothing
    
27. end if
    
28. 
    
29. 
    
30. sURL=Request.ServerVariables("HTTP_HOST")
    
31. if InStr(sURL,"=")<>0 or InStr(sURL,"`")<>0 or InStr(sURL,"'")<>0 or InStr(sURL," ")<>0 or InStr(sURL,"　")<>0 or InStr(sURL,"'")<>0 or InStr(sURL,chr(34))<>0 or InStr(sURL,"")<>0 or InStr(sURL,",")<>0 or InStr(sURL,"<")<>0 or InStr(sURL,">")<>0 then
    
32. Response.Status= "404 no found"
    
33. Response.End
    
34. end if
    
35. first_name=split(sURL,".")
    
36. if ubound(first_name)>2 then
    
37. Response.Status= "404 no found"
    
38. Response.End
    
39. end if
    
40. user=first_name(0)
    
41. seldomain=first_name(1)&"."&first_name(2)
    
42. if user="reg" then Response.Redirect "http://xxx.cn/reg/index.asp"   
    
43. '这里的这个指向是你给这个程序设置的域名的路径
    
44. geturl=False
    
45. msg=Application("domain_info")
    
46. msg=split(msg,"|")
    
47. for i=lbound(msg) to ubound(msg)-1 step 5
    
48. if msg(i)=seldomain then
    
49. geturl=True
    
50. ad=msg(i+1)
    
51. height=msg(i+2)
    
52. width=msg(i+3)
    
53. adurl=msg(i+4)
    
54. exit for
    
55. end if

复制代码

访问提示：
Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: '[number: 2]'

/index.asp，行 41


什么问题呢？球高手解答。。。

---

作者: 553993    时间: 2013-9-27 12:25
没人知道吗

---

作者: orvice    时间: 2013-9-27 12:29
不会

---

作者: 奔跑的油条    时间: 2013-9-27 12:52


41行的，first_name(2)数组越界


造成此错误的原因：
35行  first_name=split(sURL,".") 分割出来的数组下标没有2，也就是当前sURL中的"."号只有1个。

解决方法有两种：
1.41行前插入一行，输入如下代码：on error resume next
2.35行前插入一行，输入如下代码：sURL=sURL & "."


唉，回答一个问题，分都没有。

---

作者: 553993    时间: 2013-9-27 13:33

奔跑的油条 发表于 2013-9-27 12:52
41行的，first_name(2)数组越界

加了on error resume next后访问显示空白。又是什么问题呢？

---

作者: 奔跑的油条    时间: 2013-9-27 13:50

553993 发表于 2013-9-27 13:33
加了on error resume next后访问显示空白。又是什么问题呢？

如果不能忽略错误，请使用第二种方法

---

作者: 553993    时间: 2013-9-27 14:18

奔跑的油条 发表于 2013-9-27 13:50
如果不能忽略错误，请使用第二种方法

同样是空白

---

作者: 奔跑的油条    时间: 2013-9-27 14:21

553993 发表于 2013-9-27 14:18
同样是空白

第30行后面插入下面两行，看一下输出结果：

Response.write sURL
Response.end

---

作者: 553993    时间: 2013-9-27 14:34

奔跑的油条 发表于 2013-9-27 14:21
第30行后面插入下面两行，看一下输出结果：

Response.write sURL

现在是显示域名在页面上。而不是跳转到指定页面。

---

作者: 奔跑的油条    时间: 2013-9-27 14:41

553993 发表于 2013-9-27 14:34
现在是显示域名在页面上。而不是跳转到指定页面。

你不能把输出内容贴出来的？

---

作者: 553993    时间: 2013-9-27 21:06

奔跑的油条 发表于 2013-9-27 14:41
你不能把输出内容贴出来的？

我整个程序传上去你看看。就是index.asp这个文件
地址http://pan.baidu.com/s/1FZ2T8

---

欢迎光临 全球主机交流论坛 (https://loc.010206.xyz/)

Powered by Discuz! X3.4