📄 admin_wapeditlink.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.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="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="管理网站信息_<%=WebName & ChannelName%>">
<p align="left">
<%
UserName=Wap.checkstr(request("UserName"),12)
sub saveedit
dim username,sitename,siteurl,siteTitle,email,webtype,siteintro,isverify
username=Wap.checkstr(request("UserName"),12)
sitename=Wap.checkstr(request("sitename"),12)
siteurl=Wap.checkstr(request("siteurl"),100)
siteTitle=Wap.checkstr(request("siteTitle"),100)
webtype=request("webtype")
siteintro=Wap.checkstr(request("siteintro"),250)
dim outc,outj,outp,inc,inj,inp,zdate,indate,outdate,fromdate
outc=cint(request("outc"))
outj=cint(request("outj"))
outp=CSng(request("outp"))
outchu=CSng(request("outchu"))
inru=CSng(request("inru"))
inc=cint(request("inc"))
inj=cint(request("inj"))
inp=CSng(request("inp"))
fromdate=cdate(request("fromdate"))
zdate=cdate(request("dateandtime"))
indate=cdate(request("indate"))
outdate=cdate(request("outdate"))
isverify=request("isverify")
GuLian=request("GuLian")
WuxIao=request("WuxIao")
ShouXian=request("ShouXian")
Xianshua=request("Xianshua")
dim blnerror
blnerror=false
if username="" then
blnerror=true
strerror="意外出错，请选择用户名<br/>"
else
sql="select * from Link where username='"&username&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,Conn,1,3
if rs.eof then
blnerror=true
strerror="没有该用户<br/>"
end if
end if
if sitename="" or siteurl="" 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 webtype="" or not isnumeric(webtype) then
blnerror=true
strerror=strerror & "请正确选择网站类型<br/>"
end if
if isverify="1" then
isverify=strTrue
else
isverify=strFalse
end if
if password<>pwdconfirm then
blnerror=true
strerror=strerror & "两次密码不相同<br/>"
end if
if blnerror=true then
response.write strerror
response.write "<anchor>返回上级<prev/></anchor><br/>"
else
rs("outc")=outc
rs("outj")=outj
rs("outp")=outp
rs("outchu")=outchu
rs("inru")=inru
rs("inc")=inc
rs("inj")=inj
rs("inp")=inp
rs("sitename")=sitename
rs("webtype")=webtype
rs("siteurl")=siteurl
rs("siteintro")=siteintro
rs("siteTitle")=siteTitle
rs("indate")=indate
rs("outdate")=outdate
rs("fromdate")=fromdate
rs("dateandtime")=zdate
rs("isverify")=isverify
rs("GuLian")=GuLian
rs("WuxIao")=WuxIao
rs("ShouXian")=ShouXian
rs("Xianshua")=Xianshua
rs.Update
Response.write "修改成功<br/>"
end if
end sub
%>
<%
dim action
action=Request("action")
If Session(WapCacheName)<>AdminName&AdminPass Then
Response.write "请重新<a href=""Admin_WapLogin.asp"">登录！</a><br/>"
Else
select case action
case "saveedit"
call saveedit
case else
call showlist
end select
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a>"
End If
sub showlist
dim rs
rs=Wap.execute("select * from Link where username='"&username&"'")
%>
用 户 名：<%=rs("username")%><br/>
显示配置：<select name="isverify">
<option value="1">审核通过</option>
<option value="0">审核取消</option>
</select><br/>
是否首显：<select name="ShouXian">
<option value="1">首页显示</option>
<option value="0">首页不显</option>
</select><br/>
是否推荐：<select name="GuLian">
<option value="1">推荐站点</option>
<option value="0">取消推荐</option>
</select><br/>
在线刷量：<select name="xianshua">
<option value="1">加入刷量</option>
<option value="0">取消刷量</option>
</select><br/>
网站简称：<input type="text" name="sitename<%=minute(now)%><%=second(now)%>" maxlength="12" value="<%=rs("sitename")%>" /><br/>
网站名称：<input type="text" name="siteTitle<%=minute(now)%><%=second(now)%>" maxlength="30" value="<%=rs("siteTitle")%>" /><br/>
网站地址：<input type="text" name="siteurl<%=minute(now)%><%=second(now)%>" maxlength="255" value="<%=rs("siteurl")%>" /><br/>
注册时间：<input type="text" name="dateandtime<%=minute(now)%><%=second(now)%>" maxlength="20" value="<%=rs("dateandtime")%>" /><br/>
统计时间：<input type="text" name="fromdate<%=minute(now)%><%=second(now)%>" maxlength="20" value="<%=rs("fromdate")%>" /><br/>
点入时间：<input type="text" name="indate<%=minute(now)%><%=second(now)%>" maxlength="10" value="<%=rs("indate")%>" /><br/>
点出时间：<input type="text" name="outdate<%=minute(now)%><%=second(now)%>" maxlength="10" value="<%=rs("outdate")%>" /><br/>
总计点入：<input type="text" name="inc<%=minute(now)%><%=second(now)%>" maxlength="8" value="<%=rs("inc")%>" /><br/>
总击点出：<input type="text" name="outc<%=minute(now)%><%=second(now)%>" maxlength="8" value="<%=rs("outc")%>" /><br/>
今天点入：<input type="text" name="inj<%=minute(now)%><%=second(now)%>" maxlength="8" value="<%=rs("inj")%>" /><br/>
今天点出：<input type="text" name="outj<%=minute(now)%><%=second(now)%>" maxlength="8" value="<%=rs("outj")%>" /><br/>
昨天点入：<input type="text" name="inru<%=minute(now)%><%=second(now)%>" maxlength="8" value="<%=rs("inru")%>" /><br/>
昨天点出：<input type="text" name="outchu<%=minute(now)%><%=second(now)%>" maxlength="8" value="<%=rs("outchu")%>" /> <br/>
平均点入：<input type="text" name="inp<%=minute(now)%><%=second(now)%>" maxlength="8" value="<%=rs("inp")%>" /><br/>
平均点出：<input type="text" name="outp<%=minute(now)%><%=second(now)%>" maxlength="8" value="<%=rs("outp")%>" /><br/>
无效链入：<input name="WuxIao<%=minute(now)%><%=second(now)%>" type="text" value="<%=rs("WuxIao")%>" maxlength="20" /><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="text" name="siteintro<%=minute(now)%><%=second(now)%>" maxlength="255" value="<%=rs("siteintro")%>" /><br/>
<anchor>确认修改<go href="Admin_WapEditlink.asp?username=<%=username%>&Action=saveedit" method="post">
<postfield name="username" value="<%=rs("username")%>"/>
<postfield name="isverify" value="$(isverify)"/>
<postfield name="ShouXian" value="$(ShouXian)"/>
<postfield name="GuLian" value="$(GuLian)"/>
<postfield name="xianshua" value="$(xianshua)"/>
<postfield name="sitename" value="$(sitename<%=minute(now)%><%=second(now)%>)"/>
<postfield name="siteTitle" value="$(siteTitle<%=minute(now)%><%=second(now)%>)"/>
<postfield name="siteurl" value="$(siteurl<%=minute(now)%><%=second(now)%>)"/>
<postfield name="dateandtime" value="$(dateandtime<%=minute(now)%><%=second(now)%>)"/>
<postfield name="fromdate" value="$(fromdate<%=minute(now)%><%=second(now)%>)"/>
<postfield name="indate" value="$(indate<%=minute(now)%><%=second(now)%>)"/>
<postfield name="outdate" value="$(outdate<%=minute(now)%><%=second(now)%>)"/>
<postfield name="inc" value="$(inc<%=minute(now)%><%=second(now)%>)"/>
<postfield name="outc" value="$(outc<%=minute(now)%><%=second(now)%>)"/>
<postfield name="inj" value="$(inj<%=minute(now)%><%=second(now)%>)"/>
<postfield name="outj" value="$(outj<%=minute(now)%><%=second(now)%>)"/>
<postfield name="inru" value="$(inru<%=minute(now)%><%=second(now)%>)"/>
<postfield name="outchu" value="$(outchu<%=minute(now)%><%=second(now)%>)"/>
<postfield name="inp" value="$(inp<%=minute(now)%><%=second(now)%>)"/>
<postfield name="outp" value="$(outp<%=minute(now)%><%=second(now)%>)"/>
<postfield name="WuxIao" value="$(WuxIao<%=minute(now)%><%=second(now)%>)"/>
<postfield name="webtype" value="$(webtype)"/>
<postfield name="siteintro" value="$(siteintro<%=minute(now)%><%=second(now)%>)"/>
</go></anchor><br/>
<br/>
<%
end sub
%>
<%set Wap=nothing%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -