谁知道这段代码如何解释?
<%regid=request("regid")
on error resume next
Dim xingyutandefault
Set xingyutandefault = Server.CreateObject("xingyutan.default")
if err.number<>0 then
err.number=0
response.Write("还没有安装!")
response.End()
end if
xingyutandefault.reg(regid)
Set xingyutandefault = Nothing
Response.Redirect("index.htm")
%>
谢谢大家的参与!!!