?? flinksave.asp
字號:
<!--#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
rs("passed")=1
if founderr then
call diserror()
response.end
end if
rs.update
rs.close
set rs=nothing
response.write "<br><br><center>已經成功提交,請等待批準。<br>請確認已經在您的站點加入我們網站相應的鏈接,謝謝您!</span><br><a href='#;' onclick='window.close()'>關閉窗口</a></center>"
closedatabase
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -