📄 admin_wapaddlink.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="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="管理网站信息_<%=WebName & ChannelName%>">
<p align="left">
<%
dim Action
Action=Request.QueryString("Action")
If Session(WapCacheName)<>AdminName&AdminPass Then
Response.write "请重新<a href=""Admin_WapLogin.asp"">登录！</a><br/>"
Else
if Action="saveedit" then
UserName=Wap.checkstr(request.form("UserName"),12)
sitename=Wap.checkstr(request.form("sitename"),12)
siteurl=Wap.checkstr(request.form("siteurl"),510)
siteTitle=Wap.checkstr(request.form("siteTitle"),100)
password=Wap.checkstr(request.form("password"),16)
webtype=request.form("webtype")
siteintro=Wap.checkstr(request.form("siteintro"),250)
isverify=request.form("isverify")
GuLian=request.form("GuLian")
ShouXian=request.form("ShouXian")
Xianshua=request.form("Xianshua")
if GuLian="" then GuLian=0
if ShouXian="" then ShouXian=0
if Xianshua="" then Xianshua=0
dim blnerror
blnerror=false
if username="" then
blnerror=true
strerror="意外出错，请选择用户名<br/>"
else
if not Wap.execute("select UserName from Link where UserName='"&UserName&"'").eof then
blnerror=true
strerror=strerror & "用户名已经存在，请重新选择一个用户名！<br/>"
end if
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 webtype="" or not isnumeric(webtype) then
blnerror=true
strerror=strerror & "请正确选择网站类型<br/>"
end if
if not Wap.execute("select siteUrl from Link where siteUrl='"&siteUrl&"'").eof then
blnerror=true
strerror=strerror & "该网站已在系统数据库里！<br/>"
end if
if blnerror=true then
response.write strerror
response.write "<anchor>返回上级<prev/></anchor><br/>"
else
siteurl=Replace(siteurl,"&","&")
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 1 * from Link",Conn,1,3
rs.AddNew
rs("username")=username
rs("sitename")=sitename
rs("webtype")=webtype
if len(password)<16 then
rs("password")=md5(password,16)
end if
rs("admin")=Wap.MakeRandomChar(20)
rs("siteurl")=siteurl
rs("siteintro")=siteintro
rs("siteTitle")=siteTitle
rs("isverify")=strTrue
'站点限制
if WapInpc = 1 then
rs("indate")=Now()
rs("inp")=inpc
end if
rs("GuLian")=GuLian
rs("ShouXian")=ShouXian
rs("Xianshua")=Xianshua
rs.Update
response.write "添加站点链接成功！！！<br/>"
response.write "链接网址："&WapUrl&WapMulu&""&WapWenming&"?"&WapUserNamezhi&"="&UserName&"<br/>"
end if
else
%>
用 户 名：<input name="username" type="text" value="" maxlength="12" /><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 name="sitename" type="text" value="" maxlength="12" /><br/>
网站名称：<input name="siteTitle" type="text" value="" maxlength="30" /><br/>
网站地址：<input name="siteurl" type="text" value="" maxlength="255" /><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 name="password" type="password" value="<%=rndNum(8)%>" maxlength="12" /><br/>
网站简介：<input type="text" name="siteintro" maxlength="255" value="<%=rs("siteintro")%>" /><br/>
<anchor>确认添加<go href="Admin_WapAddlink.asp?Action=saveedit" method="post">
<postfield name="isverify" value="$(isverify)"/>
<postfield name="ShouXian" value="$(ShouXian)"/>
<postfield name="GuLian" value="$(GuLian)"/>
<postfield name="xianshua" value="$(xianshua)"/>
<postfield name="username" value="$(username)"/>
<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="email" value="$(email)"/>
<postfield name="siteintro" value="$(siteintro)"/>
</go></anchor><br/>
<%
end if
Response.write "<a href=""Admin_WapManage.asp"">管理首页</a>"
End If
%>
<%set Wap=nothing%>
</p>
</card>
</wml>
<%
Function rndNum(strLong)
Dim temNum
Randomize
Do While Len(RndNum) < strLong
TemNum=CStr(Chr((57-48)*rnd+48))
RndNum=RndNum&temNum
loop
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -