⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 wap_addlink.asp

📁 WEB后台:/Admin_Login.asp WAP后台:/Admin_WapLogin.asp 用户名：admin 密码:admin 在conn.asp文件修改数据库
💻 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>
<%
if Request("action")="addlink" then
   call addlink
else
   call showaddform
end if
sub showaddform
%>
=申请流程=<br/>
填写资料->获取代码->放到自己的主页上->点击一次到我站->OK<br/><br/>
用户帐号:<input name="UserName" type="text" maxlength="12" value=""/>*不能超过12个字符<br/>
网站简称:<input name="siteName" type="text" maxlength="4"/>*不能超过4个字符<br/>
网站名称:<input name="siteTitle" type="text" maxlength="30"/>*不能超过30个字符<br/>
网站地址:<input name="siteUrl" type="text" maxlength="100"/>*不能超过100个字符<br/>
网站类型:<select name="webtype">
<option value="">请选择...</option>
<%set rs=wap.execute("select * from WebType order by orderid")
		m=1
		do while not rs.eof
			Response.write " <option value="""&rs("id")&""">"&rs("name")&"</option>"
		rs.movenext
		m=m+1
		loop	
		set rs=nothing
%>

</select>
请正确选择您网站的类型<br/>
输入密码:<input name="password" type="text" maxlength="12"/>*4~12个字符<br/>
密码确认:<input name="pwdconfirm" type="text" maxlength="12"/>*请再输一遍确认<br/>
网站简介:<input type="text" name="siteintro" maxlength="400" value="这站还不错，去看看吧！！！"/><br/>
<anchor>确认加入<go href="Wap_Addlink.asp?action=addlink" method="post">
<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="pwdconfirm" value="$(pwdconfirm)"/>
<postfield name="siteintro" value="$(siteintro)"/>
</go></anchor><br/>
<%
end sub
  
sub addlink
dim username,sitename,siteurl,siteTitle,password,pwdconfirm,webtype,siteintro
UserName=Wap.checkstr(Request("UserName"),12)
siteName=Wap.checkstr(Request("siteName"),4)
siteTitle=Wap.checkstr(Request("siteTitle"),30)
siteUrl=Wap.checkstr(Request("siteUrl"),100)
password=Wap.checkstr(Request("password"),12)
pwdconfirm=Wap.checkstr(Request("pwdconfirm"),12)
webtype=Request("webtype")
siteintro=Wap.checkstr(Request("siteintro"),250)

dim blnerror,strerror
blnerror=false
if UserName="" or siteName="" or siteTitle="" or siteUrl="" or password="" or siteintro="" Then
	blnerror=true
	strerror="请检查是否有必填信息没有填写！<br/>"
end if

if blnerror=false then
if Cbool(Wap.IsValidUserName(UserName))=False then
	blnerror = true
	strerror = strerror & "用户名中含有非法字符！<br/>"
end if
if Cbool(Wap.IsValidChars(UserName))=False 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 left(siteurl,7)<>"http://" then siteurl="http://" & siteurl

if not isnumeric(webtype) then
	blnerror=true
	strerror=strerror & "请正确选择网站类型！<br/>"
end if
if len(password)<4 then 
	blnerror=true
	strerror=strerror & "您的密码太短了！<br/>"
end if
if password<>pwdconfirm then
	blnerror=true
	strerror=strerror & "两次密码不相同！<br/>"
end if
end if

if blnerror=false then
	set rs=Wap.execute("select UserName from Link where UserName='"&UserName&"'")
	if not rs.eof then
		blnerror=true
		strerror=strerror & "抱歉，用户名已经存在，请重新选择一个用户名！<br/>"		
	end if
	set rs=nothing
end if
if blnerror=false then
	set rs=Wap.execute("select siteUrl from Link where siteUrl='"&siteUrl&"'")
	if not rs.eof then
		blnerror=true
		strerror=strerror & "该网站已在系统数据库里，如果你的网站没有显示出来且你站没有违法的内容，请等待站长审批。如果想快速通过审核，请添加本站连接后给我们<a href=""Wap_GuestBook.asp"">留言</a>,谢谢！<br/>"		
	end if
	set rs=nothing
end if

if blnerror=false then
Rem 检测是否是同一域名
if IsDomainLimit = 1 then
	dim domain
	domain = mid(siteurl,8)
	if instr(domain,"/")>0 then
	domain = left(domain,instr(domain,"/"))
	end if
	set rs=Wap.execute("select UserName from Link where siteurl like '%"&domain&"%'")
	if not rs.eof then
		blnerror=true
		strerror=strerror & "抱歉，此域名已经存在，系统限制一个域名只能注册一次。<br/>"		
	end if
	set rs=nothing		
end if
end if


If blnerror=true Then
	response.write strerror
	response.write "<anchor>返回上级<prev/></anchor><br/>"
Else
	sql="select top 1 * from Link"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,Conn,1,2
	rs.AddNew
	rs("username")=UserName
	rs("admin")=UserName&Wap.MakeRandomChar(20)
	rs("sitename")=siteName
	rs("webtype")=webtype
	rs("password")=md5(password,16)
	rs("siteurl")=siteUrl
	rs("siteintro")=siteintro
	rs("siteTitle")=siteTitle
	
	rs("dateandtime")=Now()
	rs("fromdate")=Now()
	rs("indate")=date()
	rs("outdate")=date()
    Rem 站点限制
	if WapInpc = 1 then
	   rs("indate")=Now()
	   rs("inp")=inpc
	end if
	Rem 手动审核1,自动审核0
	if IsVerify = 1 then
		rs("isverify")=strFalse	'不通过
	else
		rs("isverify")=strTrue	'通过
	end if
	rs("ShouXian")=1
	rs("GuLian")=0
	rs("xianshua")=1
	rs("Tushua")=1
	rs.Update
	rs.close:set rs=nothing	
	Response.write "1.申请友情链接成功！！！<br/>"
	Response.write "2.请尽快加上本站提供的链接代码。如果超过一周没有放上链接，我站将删除贵站的资料。<br/>"
	Response.write "3.只有在你的主页上加入我站的链接后并点击一次后才有可能在我的主页上显示你的链接，并开始统计点击数。<br/>"
	If IsVerify = 1 Then
	   Response.write "4.本站设置了注册的网站需要管理员审核才能显示，请注册后耐心等待管理员审核或者直接联系管理员。如果您的网站上没有放置链接代码或者没有至少1次点入来源，可能通不过审核。<br/>"
	End If
	Response.write "----------<br/>"
	Response.write "网站简称："&JianchengName&"<br/>"
	Response.write "网站全名："&WapName&"<br/>"
	Response.write "链接网址："&WapUrl&WapMulu&WapWenming&"?"&WapUserNamezhi&"="&UserName&"<br/>"
	Response.write "网站说明："&WapAlt&"<br/>"
	Response.write "----------<br/>"
End If
End Sub


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 + -