📄 friendsitesave.asp

📁 OA最新破解2008版全新破解希望大家用着舒服

💻 ASP

字号:

<LINK rel="stylesheet" type="text/css" href="../style.css">
<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="char.inc"-->
<%
founderr=false
SiteName=trim(request.form("SiteName"))
SiteUrl=trim(request.form("SiteUrl"))
LogoUrl=trim(request.form("LogoUrl"))
SiteAdmin=trim(request.form("SiteAdmin"))
SiteIntro=trim(request.form("SiteIntro"))
if SiteName="" then
founderr=true
errmsg=errmsg+"<br><li>站名不能为空！</li>"
end if
if SiteUrl="" then
founderr=true
errmsg=errmsg+"<br><li>网址不能为空！</li>"
end if
if founderr=true then
call error()
else
	
sql="select * from FriendSite where SiteName='"&SiteName&"' and SiteUrl='"&SiteUrl&"'"
rs.open sql,conn,1,3
if not rs.eof then
errmsg=errmsg+"<br><li>网址不能为空！</li>"
call error()
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
conn.close
set conn=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>
</head>

<body topmargin="0" leftmargin="0">
<table border="0" width="80%" align=center>
<tr>
<td width="100%">
<fieldset>
<legend align=center>友情站点添加成功</legend>
<table border="0" width="100%" cellspacing="0">
<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></a><%end if%></td>
</tr>
<tr>
<td width="100%">简介：</td>
</tr>
<tr>
<td width="100%"><%=htmlencode2(SiteIntro)%></td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -