?? 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="管理網(wǎng)站信息">
<p>
<%
dim action
dim strerror
action=Request("action")
admin=Request("admin")
' ============================================
'函數(shù)名：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/>已經(jīng)七天沒有鏈入,已隱藏！<br/>"
else
if rs("IsVerify")=-1 then
Response.write "[正常]<br/>"
else
Response.write "[未審核]<br/>"
End if
End if
%>
<%call shownavbar%>
=網(wǎng)站信息=<br/>
簡稱:<%=rs("sitename")%> 類別:<%=Wap.showwebtype(rs("webtype"))%><br/>
全稱:<%=rs("siteTitle")%><br/>
網(wǎng)址:<%=Wap.htmlencode2(rs("siteurl"))%><br/>
簡介:<%=Wap.htmlencode2(rs("siteintro"))%><br/>
網(wǎng)站登記:<%=rs("dateandtime")%><br/>
開始統(tǒng)計(jì):<%=rs("fromdate")%><br/>
最后點(diǎn)入:<%=rs("indate")%><br/>
最后點(diǎn)出:<%=rs("outdate")%><br/>
=貢獻(xiàn)統(tǒng)計(jì)=<br/>
總計(jì)點(diǎn)入:<%=rs("inc")%> 今天點(diǎn)入:<%=rs("inj")%> 昨日點(diǎn)入:<%=rs("inru")%> 平均點(diǎn)入:<%=formatnumber(rs("inp"),2,-1)%><br/>
總計(jì)點(diǎn)出:<%=rs("outc")%> 今天點(diǎn)出:<%=rs("outj")%> 昨日點(diǎn)出:<%=rs("outchu")%> 平均點(diǎn)出:<%=formatnumber(rs("outp"),2,-1)%><br/>
<%
end sub
sub shownavbar
%>
=管理網(wǎng)站=<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%>">點(diǎn)擊記錄</a>
<a href="Wap_Admin.asp?action=exit">退出管理</a><br/>
<%
end sub
sub getcode
%>
<%call shownavbar%>
=鏈接代碼=<br/>
網(wǎng)站簡稱：<%=JianchengName%><br/>
網(wǎng)站全名：<%=WapName%><br/>
鏈接網(wǎng)址：<%=WapUrl&WapMulu%><%=WapWenming%>?<%=WapUserNamezhi%>=<%=Wap.Execute("select UserName from Link where admin='"&admin&"'")(0)%><br/>
網(wǎng)站說明：<%=WapAlt%><br/>
請注意：只有日均點(diǎn)擊大于<%=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/>
網(wǎng)站簡稱:<input type="text" name="sitename" maxlength="4" value="<%=rs("sitename")%>"/>*不能超過4個字符<br/>
網(wǎng)站名稱:<input type="text" name="siteTitle" maxlength="100" value="<%=rs("siteTitle")%>"/>*不能超過30個字符<br/>
網(wǎng)站地址：<input type="text" name="siteurl" maxlength="110" value="<%=rs("siteurl")%>"/>*不能超過100個字符<br/>
網(wǎng)站類型:<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>*請正確選擇您網(wǎng)站的類型<br/>
密 碼：<input type="password" name="password" maxlength="12" value="<%=rs("password")%>"/>* 不能超過12個字符<br/>
密碼確認(rèn)：<input type="password" name="pwdconfirm" maxlength="12" value="<%=rs("password")%>"/>* 請?jiān)佥斠槐榇_認(rèn)<br/>
網(wǎng)站簡介：<input type="text" name="siteintro" maxlength="200" value="<%=rs("siteintro")%>"/>*不能超過200個字符(100個漢字)<br/>
<anchor>確認(rèn)修改<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
%>
最近三天點(diǎn)入點(diǎn)出日志統(tǒng)計(jì):點(diǎn)入:<%=allin%>次 點(diǎn)出:<%=allout%>次<br/>
<a href="Wap_Admin.asp?action=showlog&inout=0&admin=<%=admin%>">點(diǎn)入記錄</a>
<a href="Wap_Admin.asp?action=showlog&inout=1&admin=<%=admin%>">點(diǎn)出記錄</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>[跳轉(zhuǎn)頁面]
<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 & "網(wǎng)站名稱不能包含某些特殊關(guān)鍵詞！<br/>"
end if
if Wap.blnfilter(siteintro,1) then
blnerror = true
strerror = strerror & "網(wǎng)站簡介不能包含某些特殊關(guān)鍵詞！<br/>"
end if
if Wap.blnfilter(siteurl,2) then
blnerror = true
strerror = strerror & "此域名已經(jīng)被屏蔽！<br/>"
end if
if not isnumeric(webtype) then
blnerror=true
strerror=strerror & "請正確選擇網(wǎng)站類型！<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&""">網(wǎng)站信息</a><br/>"
Response.write "<a href=""index.asp"">"&ChannelName&"</a><br/>"
Rem 顯示整合后的返回首頁
If WapZhenghe=1 Then Response.write "<a href="""&WapUrl&""">返回首頁</a><br/>"
Rem 讀取網(wǎng)站底部開始
Response.write Wap.DefineContents("9")
Rem 顯示網(wǎng)站訪問
Response.write Wap.Online()
set Wap=nothing
%>
</p>
</card>
</wml>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -