📄 show.asp
字号:
<!--#include file="top.asp"-->
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select WebId from [Host_OK] where 1=1"
rs.open sql,conn,1,1
RECORDCOUNT=rs.RECORDCOUNT
%>
<TABLE WIDTH="100%" BORDER="0" ALIGN="CENTER"><TR><TD>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<html>
<title>虚拟主机自助管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="main.css" rel=stylesheet type=text/css>
<SCRIPT src="ad.js"></SCRIPT>
<NOSCRIPT><IFRAME SRC=*.html></IFRAME></NOSCRIPT>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" valign="middle">
<TABLE WIDTH="760" BORDER="0" ALIGN="CENTER"><TR><TD>
<table width="100%" align="center" bgcolor="#FFFFFF" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">
<p align=center><a href=http://www.idns.net.cn target="_blank"><font color=red>宏杰网络域名60元</font></a></p>
<p align=center>宏杰网络200M空间+域名=<font color=red><b>260</b></font>元</p>
<%
Dim theInstalledObjects
theInstalledObjects = "autohost.Createhost"
If Not IsObjInstalled(theInstalledObjects) Then
%>
<p align=center><font color=red><b>警告：系统没有完成安装，请先注册DLL文件！</b></font></p>
<%end if%>
<p align=center>本系统核心是全国第一个可以<font color=red>无条件免费使用</font>的虚拟主机实时开通程序</p>
<p align=center>可以与现有的任何主机管理系统整合，支持任何网站程序</p>
<p align=center>本程序核心是2.0版本，演示ASP前台是ACCESS，演示如何整合系统</p>
<p align=center>2.0支持ACCESS，MSSQL，MYSQL数据库，带全站点备份和恢复功能</p>
<p align=center>有关程序的使用心得请到<a href=http://bbs.225500.com/list.asp?boardid=17 target="_blank"><font color=red>这里</font></a>来交流。此核心程序由<a href="mailto:admin@225500.com"><font color=red>鲍静宏</font></a>独立开发</p>
</td>
</tr>
</table>
</TD></TR></TABLE></td>
</tr>
</table>
</table>
</TD></TR></TABLE>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -