📄 friendsitesave.asp

📁 青岛dj站程序,带后台管理名字和密码都是:admin
💻 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="750" bordercolor="#408AC1" style="border-collapse: collapse" cellspacing="0" cellpadding="0">
        <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>
    </center>
</div>
    </td>
  </tr>
</table>
<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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