高分邀请强人！html语言编程

一个URL访问后获得一个9位返回值，若其中前7位都为9的话，自动提交至http://xxxx.com/1.asp 前7位不为9的话自动刷新，直到出现。

有能力写出来者请与我联系。（HTML也行、VB等编程出来也行）
QQ：96445

楼上的程序有一些问题
在Response.Redirect之前最好不要再有Response.Write()，因为Redirect本身是要使浏览器转向，你再输出客户端是看不到的。
并且Int((999999999 * Rnd) + 1) 生成的非常可能不是9位的数字。
看一下我的
希望对你有所帮助

同样保存为test.asp
<%
dim intN,returnNumber
for intN=1 to 9
returnNumber=rreturnNumber & Int((9* Rnd) + 1)
next

If Left(returnNumber,7)="9999999" Then
Response.redirect "http://www.xxx.com/1.asp"
Else
Response.write "<meta http-equiv='refresh' content='1;URL=test.asp'>"
End If
%>

保存为Test.Asp
<%
Randomize
FreeMember=Int((999999999 * Rnd) + 1)
Response.Write FreeMember
If Left(FreeMember,7)="9999999" Then
Response.redirect("http://www.xxx.com/1.asp")
Else