📄 index1.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
%>
<html>
<title>虚拟主机自助管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
BODY {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"; line-height: 20px}
.TEXT1 {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"; line-height: 16px}
.TEXT2 {FONT-SIZE: 12pt; FONT-FAMILY: "宋体"; COLOR: #FFFFFF; line-height: 24px; font-weight: bold}
A {TEXT-TRANSFORM: none; COLOR: #000000; TEXT-DECORATION: none}
A:active {COLOR: #ff0000; TEXT-DECORATION: none}
A:visited {COLOR: #000000; TEXT-DECORATION: none}
A:hover {COLOR: #666666; TEXT-DECORATION: underline}
input {font-size:12px; height: 18; border: 1px solid #cccccc; background-color:#F6F6F6; color:#000000}
textarea {font-size:12px; border: 1px solid #cccccc; background-color:#F6F6F6; color:#000000}
select {font-size:12px; border: 1px solid #cccccc; background-color:#F6F6F6; color:#000000}
</STYLE>
<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>
<%
Dim theInstalledObjects
theInstalledObjects = "autohost.Createhost"
If Not IsObjInstalled(theInstalledObjects) Then
%>
<p align=center><font color=red><b>警告：系统没有完成安装，请先注册Autohost.DLL文件！</b></font></p>
<%end if%>
<table align=center width=400 cellpadding="2" cellspacing="1" bgcolor=#000000>
<form method="POST" action="chkUser.asp?action=login" target="_top">
<tr>
<td bgcolor=ddeeff align=center height=24 colspan="3">
管理登陆
</td>
</tr>
<tr>
<td align=center bgcolor=FFFFFF width=20%>
用户名称:
</td>
<td bgcolor=FFFFFF width=20%>
<input type="text" size="20" name="UserId" style="width:120px">
</td>
</tr>
<tr>
<td align=center bgcolor=FFFFFF>
用户密码:
</td>
<td bgcolor=FFFFFF>
<input type="password" size="20" name="PassWd" style="width:120px">
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=30 colspan="2">
<input type="submit" value=" 登 陆 " name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
<input type="reset" value=" 重 置 " name="B2" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
</td>
</tr>
</form>
</table>
<br>
<p align=center>可以与现有的任何主机管理系统整合，支持任何网站程序</p>
<p align=center>本前台是ASP连接到ACCESS，演示如何整合系统</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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -