📄 addlink.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.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
<!--#include file="conn.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
</head>
<%
IF Request.QueryString("Action")="add" Then
call add
else
call main
End IF
Function main
%>
<card id="add" title="申请友联">
<p><br/>
网站名称<br/>
<input name="name" emptyok="false" maxlength="50"/><br/>
网站地址<br/>
<input name="url" emptyok="false" value="http://" maxlength="255"/><br/>
站长名字<br/>
<input name="user" format="false" maxlength="50"/><br/>
网站简介<br/>
<input name="title" format="false" maxlength="50"/><br/>
<anchor>申请
<go href="?Action=add" method="post">
<postfield name="name" value="$(name:n)" />
<postfield name="title" value="$(title:n)" />
<postfield name="user" value="$(user:n)" />
<postfield name="url" value="$(url:n)" />
</go>
</anchor>
<br/>
<a href="link.asp">返回友联列表</a>
<%end Function
Function add%>
<card id="add" title="申请友联">
<p><%
flag=1
errmsg=""
name=Request.Form("name")
title=Request.Form("title")
url=Request.Form("url")
user=Request.Form("user")
if name="" then errmsg=errmsg&"网站名称不能为空<br/>":flag=0
if title="" then errmsg=errmsg&"网站简介不能为空<br/>":flag=0
if url="" then errmsg=errmsg&"网站地址不能为空<br/>":flag=0
if user="" then errmsg=errmsg&"站长名字不能为空<br/>":flag=0
if flag<>0 then
Dim sql,rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from link where name='" & name&"'"
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
errmsg=errmsg&"该网站已经提交了友联,靖不要重复提交!<br/>"
Response.Write("由于以下原因，申请友联没有成功，请<anchor>返回<prev/></anchor>修改：<br/>"&errmsg&"<br/><anchor>返回修改<prev/></anchor><br/><a href='index.asp'>返回首页</a>")
else
rs.addnew()
rs("name")=name
rs("title")=title
rs("url")=url
rs("user")=user
rs.update()
rs.MoveLast
Response.Write("已成功提交名为"&name&"的友联！<br/>")
Response.Write("请把以下地址http://"&Request.ServerVariables("SERVER_NAME")&"/go.asp?id="&rs("id")&"添加到你的网站友联,当有用户从你站点击该联接时,你的网站计数就加1,计数越大越排前！")
Response.Write("<br/><a href='link.asp'>返回自助友联</a>")
Response.Write("<br/><a href='index.asp'>返回首页</a>")
end if
Rs.close
set rs=nothing
else
Response.Write("由于以下原因，申请友联没有成功，请<anchor>返回<prev/></anchor>修改：<br/>"&errmsg&"<br/><anchor>返回修改<prev/></anchor><br/><a href='index.asp'>返回首页</a>")
end if
end Function
%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -