📄 setup.asp
字号:
<!--#include file="../conn.asp" -->
<!--#include file="../inc/const.asp"-->
<%
'--是否使用后台管理Cookies功能,使用=True,不使用=False
'--说明：如果你的后台经常出现超时现象请打开此功能
Const UseAdminCookies = False
'--是否开户管理员登录验证功能,开启=True,关闭=False,为了系统安全建议开启
Const IsAdminValidate = False
Const AdminValidateCode = "admin" '设置登陆验证码，建议修改
'--后台管理Cookies名称,如果你打开了后台管理Cookies功能建议修改Cookies名称
Const Admin_Cookies_Name = "admin_newasp"
Dim Rs,SQL,lconn
Dim FoundErr,ErrMsg,SucMsg,AdminPage
FoundErr = False
AdminPage = False
'Session.TimeOut = SessionTimeout
Sub ConnectionLogDatabase()
On Error Resume Next
Dim lconnstr
lconnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Logdata.Asa")
Set lconn = Server.CreateObject("ADODB.Connection")
lconn.open lconnstr
End Sub
Sub SaveLogInfo(lname)
Dim RequestStr
Dim lsql,istoplog
istoplog = 0 '是否停止日志,1=停止,0=启用
If istoplog = 1 Then Exit Sub
On Error Resume Next
ConnectionLogDatabase
If InStr(Newasp.ScriptName, "_index") > 0 Or InStr(Newasp.ScriptName, "admin_log") > 0 Then Exit Sub
lname = Newasp.CheckStr(lname)
RequestStr = lcase(Request.ServerVariables("Query_String"))
If RequestStr <> "" Then
RequestStr=checkStr(RequestStr)
RequestStr=Left(RequestStr,250)
lsql = "insert into [NC_LogInfo] (UserName,UserIP,ScriptName,ActContent,LogAddTime,LogType) values ('"& lname &"','"& Newasp.GetUserip &"','"& Newasp.ScriptName &"','"& RequestStr &"','"& Now() &"',0)"
lconn.Execute(lsql)
End If
If Request.form <> "" Then
RequestStr = checkStr(request.form)
RequestStr = Left(RequestStr,250)
lsql = "insert into [NC_LogInfo] (UserName,UserIP,ScriptName,ActContent,LogAddTime,LogType) values ('"& lname &"','"& Newasp.GetUserip &"','"& Newasp.ScriptName &"','"& RequestStr &"','"& Now() &"',1)"
lconn.Execute(lsql)
End If
If IsObject(lconn) Then
lconn.Close
Set lconn = Nothing
End If
End Sub
Function fixjs(str)
If str <> "" Then
str = Replace(str, "\", "\\")
str = Replace(str, Chr(34), "\""")
str = Replace(str, Chr(39), "\'")
str = Replace(str, Chr(13), "")
str = Replace(str, Chr(10), "")
'str = replace(str,"'", "'")
End If
fixjs = str
Exit Function
End Function
'================================================
'函数名：ShowListPage
'作 用：通用分页
'================================================
Function ShowListPage(CurrentPage,Pcount,totalrec,PageNum,strLink,ListName)
With Response
.Write "<script>"
.Write "ShowListPage("
.Write CurrentPage
.Write ","
.Write Pcount
.Write ","
.Write totalrec
.Write ","
.Write PageNum
.Write ",'"
.Write strLink
.Write "','"
.Write ListName
.Write "');"
.Write "</script>" & vbNewLine
End With
End Function
'================================================
'函数名：showpages
'作 用：通用分页
'================================================
Function showpages(CurrentPage,Pcount,totalrec,PageNum,str)
Dim strTemp,strRequest
strRequest = str
strTemp = "<table border=0 cellpadding=0 cellspacing=3 width=""100%"" align=center>" & vbNewLine
strTemp = strTemp & "<tr><td valign=middle nowrap>" & vbNewLine
strTemp = strTemp & "页次：<b><font color=red>" & CurrentPage & "</font></b>/<b>" & Pcount & "</b>页 " & vbNewLine
strTemp = strTemp & "每页<b>" & PageNum & "</b> 总数<b>" & totalrec & "</b></td>" & vbNewLine
strTemp = strTemp & "<td valign=middle nowrap align=right>分页：" & vbNewLine
strTemp = strTemp & "<script language=""JavaScript"">" & vbNewLine
strTemp = strTemp & "<!--" & vbNewLine
strTemp = strTemp & "var CurrentPage=" & CurrentPage & ";" & vbNewLine
strTemp = strTemp & "var Pcount=" & Pcount & ";" & vbNewLine
strTemp = strTemp & "var Endpage=0;" & vbNewLine
strTemp = strTemp & "if (CurrentPage > 4){" & vbNewLine
strTemp = strTemp & " document.write ('<a href=""?page=1" & strRequest & """>[1]</a> ...');" & vbNewLine
strTemp = strTemp & "}" & vbNewLine
strTemp = strTemp & "if (Pcount>CurrentPage+3)" & vbNewLine
strTemp = strTemp & "{" & vbNewLine
strTemp = strTemp & " Endpage=CurrentPage+3" & vbNewLine
strTemp = strTemp & "}" & vbNewLine
strTemp = strTemp & "else{" & vbNewLine
strTemp = strTemp & " Endpage=Pcount" & vbNewLine
strTemp = strTemp & "}" & vbNewLine
strTemp = strTemp & "for (var i=CurrentPage-3;i<=Endpage;i++)" & vbNewLine
strTemp = strTemp & "{" & vbNewLine
strTemp = strTemp & " if (i>=1){" & vbNewLine
strTemp = strTemp & " if (i == CurrentPage)" & vbNewLine
strTemp = strTemp & " {" & vbNewLine
strTemp = strTemp & " document.write ('<font color=""#FF0000"">['+i+']</font>');" & vbNewLine
strTemp = strTemp & " }" & vbNewLine
strTemp = strTemp & " else{" & vbNewLine
strTemp = strTemp & " document.write ('<a href=""?page='+i+'" & strRequest & """>['+i+']</a>');" & vbNewLine
strTemp = strTemp & " }" & vbNewLine
strTemp = strTemp & " }" & vbNewLine
strTemp = strTemp & "}" & vbNewLine
strTemp = strTemp & "if (CurrentPage+3 < Pcount){" & vbNewLine
strTemp = strTemp & " document.write ('...<a href=""?page='+Pcount+'" & strRequest & """>['+Pcount+']</a>');" & vbNewLine
strTemp = strTemp & "}" & vbNewLine
strTemp = strTemp & "if (Endpage == 0){ " & vbNewLine
strTemp = strTemp & " document.write ('...');" & vbNewLine
strTemp = strTemp & "}" & vbNewLine
strTemp = strTemp & "//-->" & vbNewLine
strTemp = strTemp & "</script>" & vbNewLine
strTemp = strTemp & "</td></tr></table>"
ShowPages = strTemp
End Function
Public Sub ReturnError(ErrMsg)
Response.Write "<html><head><title>错误提示信息!</title><meta http-equiv=Content-Type content=text/html; charset=gb2312>" & vbCrLf
Response.Write "<meta http-equiv=refresh content=3;url=javascript:history.go(-1)>"
Response.Write "<link href=style.css rel=stylesheet type=text/css></head><body><p> </p>" & vbCrLf
Response.Write "<table cellpadding=5 cellspacing=0 border=0 align=center class=tableBorder1>" & vbCrLf
Response.Write " <tr><th colspan=2 align=""left""><img src=""images/welcome.gif"" width=""16"" height=""17"" align=""absMiddle""> 错误提示信息!</th></tr>" & vbCrLf
Response.Write " <tr><td align=center width=""20%"" class=TableRow1><img src=""images/err.gif"" width=95 height=97 border=0></td><td width=""80%"" class=TableRow1><b style=color:blue><span id=jump>3</span> 秒钟后系统将自动返回</b><br><b>产生错误的可能原因：</b><BR>" & ErrMsg & "</td></tr>" & vbCrLf
Response.Write " <tr><td colspan=2 align=center height=25 class=TableRow2><a href=javascript:history.go(-1)>返回上一页...</a></td></tr>" & vbCrLf
Response.Write "</table><p> </p>" & vbCrLf
Response.Write "</body></html>" & vbCrLf
Response.Write "<script>function countDown(secs){jump.innerText=secs;if(--secs>0)setTimeout(""countDown(""+secs+"")"",1000);}countDown(3);</script>"
End Sub
Public Sub Succeed(SucMsg)
Response.Write "<html><head><title>错误提示信息!</title><meta http-equiv=Content-Type content=text/html; charset=gb2312>" & vbCrLf
Response.Write "<meta http-equiv=refresh content=5;url=" & Request.ServerVariables("HTTP_REFERER") & ">"
Response.Write "<link href=style.css rel=stylesheet type=text/css></head><body><p> </p>" & vbCrLf
Response.Write "<table align=""center"" border=""0"" cellpadding=""5"" cellspacing=""0"" class=""tableBorder1"">" & vbCrLf
Response.Write " <tr> " & vbCrLf
Response.Write " <th colspan=2 align=""left""><img src=""images/welcome.gif"" width=""16"" height=""17"" align=""absMiddle""> 成功提示信息!</th>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr><td align=center width=""20%"" class=TableRow1><img src=""images/succ.gif"" width=95 height=97 border=0></td><td width=""80%"" class=TableRow1>"
Response.Write " <b style=color:blue><span id=jump>5</span> 秒钟后系统将自动返回</b><br>"
Response.Write SucMsg & "</td></tr>" & vbCrLf
Response.Write " <tr><td colspan=2 align=center height=25 class=TableRow2><a href='" & Request.ServerVariables("HTTP_REFERER") & "'>返回上一页...</a></td></tr>" & vbCrLf
Response.Write " </table><p> </p>" & vbCrLf
Response.Write "</body></html>" & vbCrLf
Response.Write "<script>function countDown(secs){jump.innerText=secs;if(--secs>0)setTimeout(""countDown(""+secs+"")"",1000);}countDown(3);</script>"
End Sub
Public Function ErrAlert(thistr)
Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "alert('" & thistr & "');"
Response.Write "javascript:history.back(1)" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.End
End Function
Public Function SucInform(thistr)
Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "alert('" & thistr & "');"
Response.Write "location.replace('" & Request.ServerVariables("HTTP_REFERER") & "')" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.End
End Function
Public Function AlertInform(this_str,this_url)
Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "alert('" & this_str & "');"
Response.Write "location.replace('" & this_url & "')" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.End
End Function
Public Function CheckAdmin(flag)
Dim Rs, SQL
Dim i, TempAdmin, Adminflag,AdminGrade
CheckAdmin = False
On Error Resume Next
SQL ="SELECT id,AdminGrade,Adminflag FROM [NC_Admin] WHERE username='"& Replace(Session("AdminName"), "'", "''") &"' And password='"& Replace(Session("AdminPass"), "'", "''") &"' And isLock=0 And id="& CLng(Session("AdminID"))
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
CheckAdmin = False
Set Rs = Nothing
Exit Function
Else
Adminflag = Rs("Adminflag")
AdminGrade = Rs("AdminGrade")
End If
Rs.Close:Set Rs = Nothing
If CInt(AdminGrade) = 999 Then
CheckAdmin = True
Exit Function
Else
If Trim(flag) = "" Then Exit Function
If Adminflag = "" Then
CheckAdmin = False
Exit Function
Else
tempAdmin = Split(AdminFlag, ",")
For i = 0 To UBound(tempAdmin)
If LCase(tempAdmin(i)) = LCase(flag) Then
CheckAdmin = True
Exit For
End If
Next
End If
End If
End Function
Sub Admin_footer()
Response.Write "<br /><table align=center>" & vbCrLf
Response.Write "<tr align=center><td width=""100%"" style=""LINE-HEIGHT: 150%"" class=copyright>" & vbCrLf
If CInt(isSqlDataBase) = 1 Then
Response.Write " Powered by：<a href=http://www.newasp.net target=_blank>NewCloud SiteManageSystem Version 2.1</a> （MSSQL 版）<br>" & vbCrLf
Else
Response.Write " Powered by：<a href=http://www.newasp.net target=_blank>NewCloud SiteManageSystem Version 2.1</a> （ACCESS 版）<br>" & vbCrLf
End If
Response.Write Newasp.Copyright & vbCrLf
If CInt(Newasp.IsRunTime) = 1 Then
Dim Endtime
Endtime = Timer()
Response.Write "<BR>执行时间：" & FormatNumber(Endtime - startime,5, -1) & "毫秒。查询数据库" & Newasp.SqlQueryNum & "次。" & vbCrLf
'Response.Write "<li>共使用了" & Application.Contents.Count & "个缓存对象。</li>"
End If
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</body></html>"
End Sub
Sub Admin_header()
Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & vbCrLf
Response.Write Newasp.CopyrightStr
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<meta name=keywords content=""新云网络,新云论坛,新云下载，newasp.net,newasp.cn"">" & vbCrLf
Response.Write "<meta name=""description"" content=""Design By www.Newasp.com,newasp.cn"">" & vbCrLf
Response.Write "<title>" & Newasp.SiteName & "-管理页面</title>" & vbCrLf
Response.Write "<LINK href=""style.css"" type=text/css rel=stylesheet>" & vbCrLf
Response.Write "<script src=""include/admin.js"" type=""text/javascript""></script>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0>" & vbCrLf
Response.Write "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 3px"">" & vbCrLf
End Sub
Public Sub ScriptCreation(url,id)
Response.Write "<span id='showimport" & id & "'></span>"
Response.Write "<script>"
Response.Write "function CreationDone(str){"
Response.Write " showimport" & id & ".innerHTML = str;"
Response.Write "}"
Response.Write "CreationID.startDownload('" & url & "',CreationDone)"
Response.Write "</script>" & vbCrLf
End Sub
'================================================
'函数名：Formatime
'作 用：格式化时间
'================================================
Public Function Formatime(ByVal datime)
datime = Trim(Replace(Trim(datime), vbNewLine, ""))
If Not IsDate(datime) Then
Formatime = Now
Exit Function
End If
If Len(datime) < 11 Then
Formatime = CDate(datime & " " & FormatDateTime(Now, 3))
Else
Formatime = CDate(datime)
End If
Exit Function
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -