?? 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 + -