📄 relink.asp

📁 一个不错的企业网站
💻 ASP
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="mdb/home_mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/error.asp"-->
<%
dim founderr,errmsg,isimage
isimage=true
founderr=false
errmsg=""
sql="select * from friendlink"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
if trim(request.form("fl_name"))="" then
   founderr=true
   errmsg=errmsg+"<br>"+"<li>站点名称未填写！"
else
  if strLength(trim(request.form("fl_name")))>50 then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>站点名称太长，不可以超过50个字符！"
  else
      rs("fl_name")=trim(request.form("fl_name"))
  end if
end if
if trim(request.form("fl_url"))="" then
   founderr=true
   errmsg=errmsg+"<br>"+"<li>站点地址未填写！"
else
  if strLength(trim(request.form("fl_url")))>150 then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>站点地址太长，不可以超过150个字符！"
  else
      rs("fl_url")=trim(request.form("fl_url"))
  end if
end if
if cint(request.Form("flcat_id"))<1 then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>请选择分类！"
else
   sql="select isimage from flcat where flcat_id="&cint(request.Form("flcat_id"))
   set rs2=server.createobject("adodb.recordset")
   rs2.open sql,conn,1,1
   if rs2("isimage")=1 then
     isimage=false
   end if
   rs2.close
   set rs2=nothing
   rs("flcat_id")=cint(request.Form("flcat_id"))
end if
if trim(request.form("fl_logo"))<>"" then
if strLength(trim(request.form("fl_logo")))>100 then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>站点logo地址太长，不可以超过150个字符！"
  else
      rs("fl_logo")=trim(request.form("fl_logo"))
end if
else
if isimage then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>该分类不是文本链接分类，请输入logo地址！"
end if
end if
rs("passed")=1
if founderr then
  call diserror()
  response.end
end if
rs.update
rs.close
set rs=nothing%><HTML>
<HEAD>
<title>提交成功</title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META NAME ="keywords" CONTENT="91工作室,小小C">
<META NAME="description" CONTENT="整站，蓝雨整站，修改版，91工作室，免费，全部，论坛，论坛，图片，文章，下载，影音,资源">
<META NAME="robots" CONTENT="all">
<BASE onmouseover="window.status='欢迎您，来自<%=request.servervariables("remote_addr")%>的客人！';return true">
<LINK href="inc/style.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=10 topMargin=15 MARGINHEIGHT="0" MARGINWIDTH="0" onclick="JavaScript:window.close()">
<table align="center" border="0" cellspacing="0" style="border-collapse: collapse" width="98%"  cellpadding="0" height="1">
          <tr>
            <td width="7" height="1">
          <img border="0" src="img/Site_Top_Left.gif"></td>
            <td width="543" height="1" background="img/Site_Top_Bg.gif"></td>
            <td width="13" height="1"><img border="0" src="img/Site_Top_Right.gif"></td>
          </tr>
          <tr>
            <td width="7" height="17" background="img/Site_Left_Bg.gif"></td>
            <td width="543" height="17" bgcolor="#F2F2F2"><font color=red>已经成功提交，请等待批准。请确认已经在您的站点加入我们相应的链接，谢谢您！</font><p align=right>---<%=webname%>&nbsp;&nbsp;</p></td>
            <td width="13" height="17" background="img/Site_Right_Bg.gif"></td>
          </tr>
          <tr>
            <td width="7" height="1"><img border="0" src="img/Site_Down_Left.gif"></td>
            <td width="543" height="1" background="img/Site_Down_Bg.gif"></td>
            <td width="13" height="1"><img border="0" src="img/Site_Down_Right.gif"></td>
          </tr>
        </table>
</body></html>
<%closedatabase%>
⌨️ 快捷键说明

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