<%
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")
%>
谢谢大家的参与！！！

尤其是这一段Set xingyutandefault = Server.CreateObject("xingyutan.default")
十分不解？

可我查遍所有的网站文件，但没有“xingyutan.default”这个啊，
不知道这个组件在那里，一开始我也认为是组件就是不知道是怎么回事？
能否再做一下详解？

谢谢了
有点思路了

请问楼上的高手们，dll怎样创建，用什么方式打开

但是，去找了全部文件的代码，也没有见到什么dll文件啊，那作者是怎么封装的，有什么方法可以看到吗
谢谢