/tjyoucl.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.inc"-->
<wml><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <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 id="card1" title="申请友情">
<p>
<%
  syname=request("sy")
  sm=request("mc")
  dd=request("url")
if syname="" or sm="" or dd="" then response.redirect "tjYOU.asp?cw=2"

set rs1=Server.CreateObject("ADODB.Recordset")
rspl1="select name from cnscu_yl where cstr(name)='"&sm&"'"
rs1.open rspl1,conn,1,2
if not rs1.eof then 
response.redirect "tjYOU.asp?cw=3"
end if
rs1.close
set rs1=nothing

set rs2=Server.CreateObject("ADODB.Recordset")
rspl2="select syname from cnscu_yl where cstr(syname)='"&syname&"'"
rs2.open rspl2,conn,1,2
if not rs2.eof then 
response.redirect "tjYOU.asp?cw=4"
end if
rs2.close
set rs2=nothing

set rs3=Server.CreateObject("ADODB.Recordset")
rspl3="select url from cnscu_yl where cstr(url)='"&dd&"'"
rs3.open rspl3,conn,1,2
if not rs3.eof then 
response.redirect "tjYOU.asp?cw=1"
end if
rs3.close
set rs3=nothing

set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from cnscu_yl"
rs.open rspl,conn,1,2
rs.addnew
if dd<>"" then rs("url")=dd
if sm<>"" then rs("name")=sm
if syname<>"" then rs("syname")=syname
rs("zt")=0
rs.update
'---关闭数据----
rs.close
set rs=nothing

set objgbrs2=Server.CreateObject("ADODB.Recordset")
ssql="select top 1 * from cnscu_yl  order by id desc"
objgbrs2.open ssql,conn,1,1
kkk=objgbrs2("id")
objgbrs2.close
set objgbrs2=nothing

set rss=Server.CreateObject("ADODB.Recordset")
rsppls="select * from wap_jb where id=1"
rss.open rsppls,conn,1,2
nnn=rss("wap_name")
hhh=rss("wap_ym")
rss.close
set rss=nothing
%>
申请成功：请尽快加上本站连接，以便您能快速通过审核！<br/>
站名<b><%=ubb(nnn)%></b><br/>
地址<%=ubb(hhh)%>/u.asp?id=<%=kkk%><br/>

<a href="index.asp">网站主页</a>|<a href="you.asp">友链</a>
</p>
</card>
</wml>
相关源码
字母检索
回到顶部