📄 friendsitesave.asp

📁 疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<%
dim SiteName,SiteUrl,LogoUrl,SiteAdmin,SiteIntro
SiteName=Checkin(trim(request.form("SiteName")))
SiteUrl=Checkin(trim(request.form("SiteUrl")))
LogoUrl=trim(request.form("LogoUrl"))
SiteAdmin=trim(request.form("SiteAdmin"))
SiteIntro=trim(request.form("SiteIntro"))
if SiteName="" then
	conn.close
	set conn=nothing
	response.write "<script language=javascript>alert('对不起，请填写你的网站名称！');history.back(1);</script>"
	Response.End
	end if
if SiteUrl="" then
	conn.close
	set conn=nothing
	response.write "<script language=javascript>alert('对不起，请填写你的网站地址！');history.back(1);</script>"
	Response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select * from FriendSite where SiteName='"&SiteName&"' and SiteUrl='"&SiteUrl&"'"
rs.open sql,conn,1,3
if not rs.eof then
	conn.close
	set conn=nothing
	response.write "<script language=javascript>alert('对不起，你的网站信息已经被提交过，请耐心等待站长的认证，并做好本站在贵站的链接！');history.back(1);</script>"
	Response.End
else
	rs.addnew
	rs("SiteName")=SiteName
	rs("SiteUrl")=SiteUrl
	if SiteAdmin="" then
		rs("SiteAdmin")=null
	else
		rs("SiteAdmin")=SiteAdmin
	end if
	if LogoUrl="" then
		rs("LogoUrl")=null
	else
		rs("LogoUrl")=LogoUrl
	end if
	if SiteIntro="" then
		rs("SiteIntro")=null
	else
		rs("SiteIntro")=SiteIntro
	end if
	rs.update
end if
rs.close
set rs=nothing
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><%=WebTitle%></title>
<!--#include file="style.asp"-->
</head>

<body topmargin="0" leftmargin="0" bgcolor="#152837" >
<div align="center">
  <center>
    <table border="3" width="98%" bordercolor="#408AC1" style="border-collapse: collapse" cellspacing="0" cellpadding="0" align="center">
      <tr>
          <td width="100%" align=center class=TFColor bgcolor="#1A4051">友情站点添加成功</td>
        </tr>
        <tr>
          <td width="100%">你已经成功提交你的网站。请将本站先加入贵站友情连接中，并耐心等待站长的认证通过。站点资料如下：</td>
        </tr>
        <tr>
          <td width="100%">站名：<%=SiteName%></td>
        </tr>
        <tr>
          <td width="100%">地址：<%=SiteUrl%></td>
        </tr>
        <tr>
          <td width="100%">站长：<%=SiteAdmin%></td>
        </tr>
        <tr>
          <td width="100%">Logo：<%if LogoUrl<>"" then%><a href="<%=SiteUrl%>" target="_blank"><img src="<%=LogoUrl%>" border=0 width="88" height="31"></a><%end if%></td>
        </tr>
        <tr>
          <td width="100%" bgcolor="#1A4051">简介：</td>
        </tr>
        <tr>
          <td width="100%"><%=(SiteIntro)%>　</td>
        </tr>
      </table>本站代码：
<textarea rows="3" name="S1" cols="35">
<a href="http://www.137yy.com" target=_blank><IMG height=31 alt=137YY音乐网 src="http://www.137yy.com/link/images/logo.gif" width=88 border=0></A>
</textarea>
    </center>
</div>
    
<%
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -