📄 install.asp

📁 文章管理系统,生成静态网页 .
💻 ASP
字号:
<!--#include file=conn.asp-->
<html>
<head>
<title>安装驰志网络文章系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name=KEYWORDS content="驰志网络资源交流中心,www.58down.com">
<meta NAME="author" CONTENT="驰志网络">
<meta NAME="copyright" content="Copyright 2003-2008 - 驰志网络 - 不飞的天使">
<link href="favicon.ico" rel="shortcut icon">
<link href="Style.css" rel="stylesheet" type="text/css">
</head> 
<body bgcolor="#D1D1D1" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file=include.asp-->
<!--#include file=md5.asp-->
<body bgcolor=9eb6d8>
<%

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

function fsoerr(a)
response.write "<table width=90% align=center bgcolor=black cellpadding=3 cellspacing=1><tr><td bgcolor=white height=120 valign=middle align=center>"&a&"</table>" 

end function

If not  IsObjInstalled("Scripting.FileSystemObject") Then 
	fsoerr("该服务器不支持FSO，故无法使用本程序生成文章！")
elseif not IsObjInstalled("adodb.stream") Then
	fsoerr("服务器ADO组件版本太低，你将无法使用某些功能！")
end if

%>
<br>
<%
set conn=server.createobject("adodb.connection")
conn.open connstr
if not conn.execute("select * from config").eof then 
conn.close
ok("你已经安装过了")
end if
%>
<%
if request("submit")<>"" then
superadmin=server.htmlencode(trim(request("superadmin")))
superpass=server.htmlencode(trim(request("superpass")))
superpass2=server.htmlencode(trim(request("superpass2")))
webtitle=server.htmlencode(trim(request("webtitle")))
 if superadmin="" or superpass="" or superpass2="" then err("错误!你的笔填项目不能为空")
if superpass<>superpass2 then err("你的两次密码不匹配")
if webtitle="" then webtitle="驰志网络文章系统"
superpass=md5(superpass)

p="http://"&request.servervariables("server_name")&request.servervariables("url")
path=left(p,(len(p)-12))

set rs=server.createobject("adodb.recordset")
rs.open "select * from config",conn,1,3

rs.addnew
rs("superadmin")=superadmin
rs("superpass")=superpass
rs("webtitle")=webtitle
rs("path")=path
rs("createtime")=date
rs("count")=1
rs("num")=1
rs("adtop")="顶部广告"
rs("adfloat")="浮动广告"
rs("adbottom")="低部广告"
rs.update
conn.close
response.write "<table width=200 align=center><tr><td bgcolor=#FFFFFF valign=middle height=200 >安装成功<br><a class=SoftMeun href=admin.asp>进入管理</a> <br><a class=SoftMeun href=./>返回首页</a></table><meta http-equiv='refresh' content='10 url=./'>"
%>

<%
response.end
end if

%>
<head>
<title>安装驰志网络文章系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name=KEYWORDS content="驰志网络资源交流中心,www.58down.com">
<meta NAME="author" CONTENT="驰志网络">
<meta NAME="copyright" content="Copyright 2003-2008 - 驰志网络 - 不飞的天使">
<link href="favicon.ico" rel="shortcut icon">
<link href="Style.css" rel="stylesheet" type="text/css">
</head> 
<body bgcolor="#D1D1D1" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<table width=90% align=center bgcolor=white><tr><td> <br>
<form method=post action=<%=self%> >
<table width=90% align=center bgcolor=#000000 cellpadding=3 cellspacing=1><tr><td bgcolor=#FFFFFF colspan=2 align=center>程序安装
<tr><td bgcolor=#FFFFFF width=30%>管理员名称:<td bgcolor=#FFFFFF><input class="inpute" name=superadmin maxlength=16>
<tr><td bgcolor=#FFFFFF>管理员密码：<td bgcolor=#FFFFFF><input class="inpute" type=password name=superpass maxlength=16>
<tr><td bgcolor=#FFFFFF >重复密码：<td bgcolor=#FFFFFF><input class="inpute" type=password name=superpass2 maxlength=16>
<tr><td bgcolor=#FFFFFF>网站标题:<td bgcolor=#FFFFFF > <input class="inpute" name=webtitle maxlength=30 size=30 value="驰志网络文章系统">
<tr><td colspan=2 bgcolor=#FFFFFF align=center><input type=submit class="input1" name=submit value="安装->进入下一步"><input type=reset class="input1" value="取消">
</table>
</table>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -