setup.asp
来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 417 行 · 第 1/2 页
ASP
417 行
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><meta http-equiv=""content-type"" content=""text/html; charset=gb2312""><title>错误提示信息!</title>" & vbcrlf
response.write "<meta http-equiv=refresh content=3;url=javascript:history.go(-1)>"
response.write "<link href=""images/css/admin_style_" & adminskin & ".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><meta http-equiv=""content-type"" content=""text/html; charset=gb2312""><title>错误提示信息!</title>" & vbcrlf
response.write "<meta http-equiv=refresh content=5;url=" & request.servervariables("http_referer") & ">"
response.write "<link href=""images/css/admin_style_" & adminskin & ".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.dincoo.com target=_blank>小游戏</a> （mssql 版）统计代码<br>" & vbcrlf
else
response.write " Powered by：<a href=http://www.Gnet.com.cn target=_blank>小游戏</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 "<html>" & vbcrlf
response.write "<head>" & vbcrlf
response.write newasp.copyrightstr
response.write "<meta http-equiv=""content-type"" content=""text/html; charset=gb2312"">" & vbcrlf
response.write "<title>" & newasp.sitename & "-管理页面</title>" & vbcrlf
response.write "<link href=""images/css/admin_style_" & adminskin & ".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
public function re_replace(str,retxt,replacetxt)
dim re
retxt = replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(retxt, "[", "\["), "]", "\]"), "(", "\("), ")", "\)"), "$", "\$"), "^", "\^"), "{", "\{"), "}", "\}"), "+", "\+"), ".", "\.")
'replacetxt = replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replacetxt, "[", "\["), "]", "\]"), "(", "\("), ")", "\)"), "$", "\$"), "^", "\^"), "{", "\{"), "}", "\}"), "+", "\+"), ".", "\.")
set re = new regexp
re.ignorecase = true
re.global = true
re.pattern = retxt
re_replace = re.replace(str,replacetxt)
set re = nothing
end function
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?