宁波美容美发网友情链接 |
|
| |
<%if request("action")="" then%>
<%elseif request("action")="addlink" then
function linkaddkey()
randomize timer
linkaddkey=1000+int(rnd*999)
end function
%>
<%
'添加
elseif request("action")="add" then
key1=""&session("key")&""
key2=""&request("keys")&""
if key1<>key2 then
response.write""
response.write ""
response.End()
end if
if request("t1")="" or len(request("t1"))>36 or len(request("t1"))<2 or request("t2")="" or request("t3")="" or left(request("t2"),7)<>"http://" or len(request("t2"))<12 or len(request("t2"))>100 or left(request("t3"),7)<>"http://" or len(request("t3"))>160 or len(request("t3"))<16 or request("t4")="" or len(request("t4"))>255 or len(request("t4"))<2 then
response.write""
response.write ""
response.End()
end if
StrSql = "select * from sogo_link"
Set rs = server.CreateObject("ADODB.RecordSet")
rs.Open StrSql,Conn,1,2
rs.addnew
rs("sogo_link_font")=htmls(encodestr(request("t1")))
rs("sogo_link_url")=htmls(encodestr(request("t2")))
rs("sogo_link_login")=htmls(encodestr(request("t3")))
rs("sogo_link_alt")=htmls(encodestr(request("t4")))
rs("sogo_link_logo_or_txt")=htmls(encodestr(request("logoortxt")))
session("key")=""
rs.update
rs.close
response.write"| » 提示信息 | | "
response.write"此链接需待管理员审核！请按这里返回友情链接显示页面 |
|
"
end if
%>
|
| |
|
|
|
|
