admin_flinksave.asp

来自「南鄂电子商务学校网: 学校概况、校园动态、师资力量、教学成果、师生论坛、友情链接」· ASP 代码 · 共 57 行

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<!--#include file="error.asp"-->
<link rel="stylesheet" href="images/style.css" type="text/css">
<%
dim founderr,errmsg
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")))>16 then
      founderr=true
	  errmsg=errmsg+"<br>"+"<li>站点名称太长，不可以超过16个字符！"
  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
   rs("flcat_id")=cint(request.Form("flcat_id"))
end if

if founderr then
  call diserror()
  response.end
end if
rs.update
set rs=nothing
  sql="update allcount set friendlinkcount = friendlinkcount + 1"
  conn.execute(sql)
  closedatabase
response.redirect "admin_friendlink.asp"
closedatabase
%>