<%
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”中，换句话说他不希望你看到他的源代码。
安装组件需要服务器管理员权限。

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

组件是存在文件里，不过应该不是放在网站文件里，即使放在网站文件里也不会被调用（怎么可能让你任意调用二进制代码呢），实际上一般是个dll文件，也可以是ocx。
文件在哪里要问开发者了。

谢谢了
有点思路了

那应该是人家自己写的一个dll~

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

是作者自己写的一个组件，这个组件可以用各种编程工具编写，我一般用VB

DLL里是二进制代码，可以运行，但是所谓的“打开”或者叫“查看源程序”是不太可能的了。可以反汇编，但作者一般写的不是汇编代码。