📄 wap_admin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<!--#include file="md5.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/ wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card title="管理网站信息">
<p>
<%
dim action
dim strerror
action=Request("action")
admin=Request("admin")
' ============================================
'函数名：UserLoginChecked
'作 用：判断用户是否登录
'返回值：True或False
' ============================================
Function UserLoginChecked()
IF admin="" Then
UserLoginChecked=False
Else
set rs=Wap.execute("select id from Link where admin='"&admin&"'")
IF rs.Eof And rs.Bof Then
UserLoginChecked=False
Else
UserLoginChecked=True
End If
rs.Close:set rs=nothing
End If
End Function
if action="chklogin" then
call chklogin
elseif action="loginform" then
call loginform
elseif action="getcode" then
call getcode
elseif action="showlog" then
call showlog
elseif action="saveedit" then
call saveedit
elseif action="exit" then
call exitlogin
elseif action="listinfo" then
call listinfo
else
call wap_admin
end if
sub exitlogin
strerror="成功退出！！！<br/>"
call loginform
end sub
sub chklogin
UserName=Wap.checkstr(Request("UserName"),12)
Password=Wap.checkstr(Request("Password"),12)
Password=Md5(Password,16)
if UserName="" or Password="" then
strerror="请重新输入<br/>"
call loginform
else
admin=UserName&Wap.MakeRandomChar(20)
Set rs=Server.CreateOBject("ADODB.RECORDSET")
rs.Open "Select * From Link Where UserName='"&UserName&"' And PassWord='" & PassWord & "'",Conn,1,3
If rs.Eof And rs.BOf Then
strerror="你输入的用户名或密码有误，请重新输入！<br/>"
call loginform
else
rs("admin")=admin
rs.Update
rs.Close
set rs=nothing
Response.Redirect WapMulu&"Wap_Admin.asp?action=wap_admin&admin="&admin
end if
end if
end sub
sub Wap_Admin
if UserLoginChecked=False then
call loginform
exit sub
end if
set rs=Wap.execute("select * from Link where admin='"&admin&"'")
Response.write "你好!<strong>"&rs("username")&"</strong>"
if DATEDIFF("s", rs("indate"), now()) > 10080*60 then
Response.write "<br/>已经七天没有链入,已隐藏！<br/>"
else
if rs("IsVerify")=-1 then
Response.write "[正常]<br/>"
else
Response.write "[未审核]<br/>"
End if
End if
%>
<%call shownavbar%>
=网站信息=<br/>
简称:<%=rs("sitename")%> 类别:<%=Wap.showwebtype(rs("webtype"))%><br/>
全称:<%=rs("siteTitle")%><br/>
网址:<%=Wap.htmlencode2(rs("siteurl"))%><br/>
简介:<%=Wap.htmlencode2(rs("siteintro"))%><br/>
网站登记:<%=rs("dateandtime")%><br/>
开始统计:<%=rs("fromdate")%><br/>
最后点入:<%=rs("indate")%><br/>
最后点出:<%=rs("outdate")%><br/>
=贡献统计=<br/>
总计点入:<%=rs("inc")%> 今天点入:<%=rs("inj")%> 昨日点入:<%=rs("inru")%> 平均点入:<%=formatnumber(rs("inp"),2,-1)%><br/>
总计点出:<%=rs("outc")%> 今天点出:<%=rs("outj")%> 昨日点出:<%=rs("outchu")%> 平均点出:<%=formatnumber(rs("outp"),2,-1)%><br/>
<%
end sub
sub shownavbar
%>
=管理网站=<br/>
<a href="Wap_Admin.asp?action=getcode&admin=<%=admin%>">链接代码</a>
<a href="Wap_Admin.asp?action=listinfo&admin=<%=admin%>">修改信息</a><br/>
<a href="Wap_Admin.asp?action=showlog&admin=<%=admin%>">点击记录</a>
<a href="Wap_Admin.asp?action=exit">退出管理</a><br/>
<%
end sub
sub getcode
%>
<%call shownavbar%>
=链接代码=<br/>
网站简称：<%=JianchengName%><br/>
网站全名：<%=WapName%><br/>
链接网址：<%=WapUrl&WapMulu%><%=WapWenming%>?<%=WapUserNamezhi%>=<%=Wap.Execute("select UserName from Link where admin='"&admin&"'")(0)%><br/>
网站说明：<%=WapAlt%><br/>
请注意：只有日均点击大于<%=inpc%>次，才会在页面上显示。<br/>
<%
end sub
sub listinfo
if UserLoginChecked=False then
call loginform
exit sub
end if
dim rs
set rs=Wap.Execute("select * from Link where admin='"&admin&"'")
%>
<%call shownavbar%>
=修改信息=<br/>
用 户 名：<%=rs("username")%>(不能修改)<br/>
网站简称:<input type="text" name="sitename" maxlength="4" value="<%=rs("sitename")%>"/>*不能超过4个字符<br/>
网站名称:<input type="text" name="siteTitle" maxlength="100" value="<%=rs("siteTitle")%>"/>*不能超过30个字符<br/>
网站地址：<input type="text" name="siteurl" maxlength="110" value="<%=rs("siteurl")%>"/>*不能超过100个字符<br/>
网站类型:<select name="webtype">
<%set rs1=wap.execute("select * from WebType order by orderid")
m=1
do while not rs1.eof
Response.write " <option value="""&rs1("id")&""">"&rs1("name")&"</option>"
rs1.movenext
m=m+1
loop
set rs1=nothing
%>
</select>*请正确选择您网站的类型<br/>
密 码：<input type="password" name="password" maxlength="12" value="<%=rs("password")%>"/>* 不能超过12个字符<br/>
密码确认：<input type="password" name="pwdconfirm" maxlength="12" value="<%=rs("password")%>"/>* 请再输一遍确认<br/>
网站简介：<input type="text" name="siteintro" maxlength="200" value="<%=rs("siteintro")%>"/>*不能超过200个字符(100个汉字)<br/>
<anchor>确认修改<go href="Wap_Admin.asp?action=saveedit&admin=<%=admin%>" method="post">
<postfield name="sitename" value="$(sitename)"/>
<postfield name="siteTitle" value="$(siteTitle)"/>
<postfield name="siteurl" value="$(siteurl)"/>
<postfield name="webtype" value="$(webtype)"/>
<postfield name="password" value="$(password)"/>
<postfield name="pwdconfirm" value="$(pwdconfirm)"/>
<postfield name="siteintro" value="$(siteintro)"/>
</go></anchor><br/>
<%
end sub
sub loginform
%>
<%=strerror%>
=用户登陆=<br/>
用户名称：<input name="username" type="text" maxlength="12"/><br/>
登陆密码：<input name="password" type="password" maxlength="12"/><br/>
<anchor>登陆管理<go href="Wap_Admin.asp?action=chklogin" method="post">
<postfield name="username" value="$(username)"/>
<postfield name="password" value="$(password)"/>
</go></anchor><br/>
<%
end sub
sub showlog
call shownavbar
%>
=最近记录=<br/>
<%
UserName=Wap.execute("select UserName from Link where admin='"&admin&"'")(0)
allin = Wap.execute("select count(0) from Log where inout=0 and dateandtime>"&SqlNowString&"-3 and UserName='"&UserName&"'")(0)
allout = Wap.execute("select count(0) from Log where inout=1 and dateandtime>"&SqlNowString&"-3 and UserName='"&UserName&"'")(0)
inout=Cint(Request("inout"))
if inout="" then inout=0
pag=10
p=Cint(Request("p"))
if p="" or p<=0 then p=1
%>
最近三天点入点出日志统计:点入:<%=allin%>次 点出:<%=allout%>次<br/>
<a href="Wap_Admin.asp?action=showlog&inout=0&admin=<%=admin%>">点入记录</a>
<a href="Wap_Admin.asp?action=showlog&inout=1&admin=<%=admin%>">点出记录</a><br/>
<%
set rs1=Server.CreateObject("ADODB.Recordset")
if inout="0" then
Sql="select * from Log where inout="&inout&" and dateandtime>"&SqlNowString&"-3 and UserName='"&UserName&"' order by id desc"
elseif inout="1" then
Sql="select * from Log where inout="&inout&" and dateandtime>"&SqlNowString&"-3 and UserName='"&UserName&"' order by id desc"
end if
rs1.open Sql,Conn,1,2
maxpage=int((rs1.recordcount-1)/pag)+1
if p>maxpage then p=maxpage
if rs1.eof then
Response.write "暂时还没有记录！！！<br/>"
else
rs1.Move((p-1)*pag)
j=1
do while ((not rs1.EOF) and j<=clng(pag))
%>
--------<br/>
<%=((p-1)*pag+j)%>.
IP:<%=rs1("ip")%><br/>
时间:<%=rs1("dateandtime")%><br/>
<%
rs1.MoveNext
j=j+1
loop
if p*pag<rs1.recordcount then response.write("<a href=""Wap_Admin.asp?action=showlog&inout="&inout&"&p="&p+1&"&admin="&admin&""">[下页]</a> ")
if p>1 then response.write("<a href=""Wap_Admin.asp?action=showlog&inout="&inout&"&p="&p-1&"&admin="&admin&""">[上页]</a> ")
if p*pag<rs1.recordcount or p>1 then response.write("(" & p & "/" & (int((rs1.recordcount-1)/pag)+1) & ")<br/>")
if p*pag<rs1.recordcount or p>1 then
%>
<input name="page" title="页码" type="text" format="*N" emptyok="true" size="3" maxlength="4" value="<%if p>=maxpage then response.write(p-1) else response.write(p+1)%>"/>
<anchor>[跳转页面]
<go href="Wap_Admin.asp?action=showlog&inout=<%=inout%>&admin=<%=admin%>">
<postfield name="p" value="$(page)"/> </go></anchor><br/>
<%
end if
end if
%>
--------<br/>
<%
End Sub
Sub saveedit
if UserLoginChecked=False then
call loginform
exit sub
end if
UserName=Wap.execute("select UserName from Link where admin='"&admin&"'")(0)
sitename=Wap.checkstr(Request("sitename"),12)
siteurl=Wap.checkstr(Request("siteurl"),100)
siteTitle=Wap.checkstr(Request("siteTitle"),100)
password=Wap.checkstr(Request("password"),16)
pwdconfirm=Wap.checkstr(Request("pwdconfirm"),16)
webtype=Request("webtype")
siteintro=Wap.checkstr(Request("siteintro"),250)
dim blnerror,strerror
blnerror=false
if UserLoginChecked=False then
blnerror=true
strerror="意外出错，请重新登陆！<br/>"
end if
if sitename="" or siteurl="" or password="" or siteintro="" then
blnerror=true
strerror=strerror & "请检查是否有必填信息没有填写！<br/>"
end if
if Wap.blnfilter(sitename,1) then
blnerror = true
strerror = strerror & "网站名称不能包含某些特殊关键词！<br/>"
end if
if Wap.blnfilter(siteintro,1) then
blnerror = true
strerror = strerror & "网站简介不能包含某些特殊关键词！<br/>"
end if
if Wap.blnfilter(siteurl,2) then
blnerror = true
strerror = strerror & "此域名已经被屏蔽！<br/>"
end if
if not isnumeric(webtype) then
blnerror=true
strerror=strerror & "请正确选择网站类型！<br/>"
end if
if password<>pwdconfirm then
blnerror=true
strerror=strerror & "两次密码不相同！<br/>"
end if
If blnerror=true Then
Response.write "错误信息"
Response.write strerror
Response.write "<anchor>返回上级<prev/></anchor><br/>"
Else
If left(siteurl,7)<>"http://" Then
siteurl="http://" & siteurl
End If
dim rs,sql
sql= "select * from Link where UserName='"&UserName&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,Conn,1,3
rs("sitename")=sitename
rs("webtype")=webtype
if len(password)<16 then
rs("password")=md5(password,16)
end if
rs("siteurl")=siteurl
rs("siteintro")=siteintro
rs("siteTitle")=siteTitle
if IsVerify = 1 then
rs("isverify")=0 '不通过
else
rs("isverify")=1 '通过
end if
rs.Update
rs.close
set rs=nothing
Response.write "资料修改成功<br/>"
Response.write "<anchor>返回上级<prev/></anchor><br/>"
End If
End Sub
If UserLoginChecked=True Then Response.write "<a href=""Wap_Admin.asp?admin="&admin&""">网站信息</a><br/>"
Response.write "<a href=""index.asp"">"&ChannelName&"</a><br/>"
Rem 显示整合后的返回首页
If WapZhenghe=1 Then Response.write "<a href="""&WapUrl&""">返回首页</a><br/>"
Rem 读取网站底部开始
Response.write Wap.DefineContents("9")
Rem 显示网站访问
Response.write Wap.Online()
set Wap=nothing
%>
</p>
</card>
</wml>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -