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

📄 lianjie_gai.asp

📁 J:程序新静态动态可选择wap友链接版[自带简单留言本]源码程序系统
💻 ASP
字号:

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%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">
<!--#include file="conn.asp"-->
<!--#include file="const.asp" -->
<!--#include file="char.asp"-->
<%

Set rs = Server.CreateObject("ADODB.Recordset")
sql ="SELECT * From wapqita where id="&request("id")
RS.open sql,Conn,1,1
lassid=rs("lassid")
title=rs("title")
title_quan=rs("title_quan")
jianjie=rs("jianjie")
content=rs("content")
	set rs = server.createobject("adodb.recordset")
	sql="select * from class where id="&lassid&""
	rs.open sql,conn,1,1
	if not rs.eof then
	class_name=rs("name")
	end if
%>
<wml> 
<head>
<meta http-equiv='Cache-Control' content='no-Cache'/>
<meta http-equiv='Cache-Control' content='max-age=0'/>
</head>
<card id='main' title='站点添加' >
<p>
网站名称(全名)
<br/><input type='text' name='quan' size='10' value='<%=title_quan%>'/>
<br/>网站名称(简名,限2字,用于首页显示)
<br/><input type='text' name='title' size='10' value='<%=title%>'/>
<br/>网站地址(带http://)
<br/><input type='text' name='content' size='10' value='<%=content%>'/>
<br/>添加到
<br/><select name='lassid'>
<%if lassid="" then%>
<option value=''>选择分类</option>
<%else%>
<%
	if request("id")=7 then
	name="门户"
	end if
	if request("id")=1 then
	name="图铃"
	end if
	if request("id")=2 then
	name="游戏"
	end if
	if request("id")=3 then
	name="文学"
	end if
	if request("id")=4 then
	name="社区"
	end if
	if request("id")=5 then
	name="两性"
	end if
	if request("id")=6 then
	name="彩经"
	end if
	if request("id")=9 then
	name="其他"
	end if
%>
<option value='<%=lassid%>'><%=class_name%></option>
<%end if%>
<option value='7'>门户</option>
<option value='1'>图铃</option>
<option value='2'>游戏</option>
<option value='3'>文学</option>
<option value='4'>社区</option>
<option value='5'>两性</option>
<option value='6'>彩经</option>
<option value='9'>其他</option>
</select>
<br/>站点简介(可留控)
<br/><input type='text' name='jianjie' size='10' value='欢迎大家访问我的总站:http://hotbd.dwap.cn'/>
<br/><anchor>[-提交-]
<go href='lianjie_gai_ok.asp?id=<%=request("id")%>' method='post' accept-charset='utf-8'>
<postfield name='title' value='$(title)'/>
<postfield name='title_quan' value='$(quan)'/>
<postfield name='content' value='$(content)'/>
<postfield name='lassid' value='$(lassid)'/>
<postfield name='jianjie' value='$(jianjie)'/>
</go>
</anchor>
<br/>本站友连按照贵站最后连入排名,只要有用户连入本站,既在所属分类排名第一,数据一星期清理数据依次,届时所有连入本站的数据将全部归零,没有用户连入的站点将不在显示,这样做是为了有的站长在本站申请了连接却不加本站,而造成的本站流量的浪费,请各位站长谅解!
<br/>-------------
<br/><a href='../index.asp'>返回首页</a>
</p>
</card>
</wml> 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -