📄 collection.asp

📁 站完全依据SEO技术建立
💻 ASP
字号:
<!--#include file="main.asp"-->
<%if request("action")="save" then
SMT_sortid=request("SMT_sortid")
SMT_name=request("SMT_name")
SMT_collection=request("SMT_collection")

if left(SMT_collection,7)<>"http://" or len(SMT_collection)<10 then
errstyle="·对不起，请填写正确收藏地址！"
scripterr
end if

set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_collection where SMT_yp_id="& session("id")
rs.open sql,conn,1,3
if userflag22<>0 then
if rs.recordcount >= cint(userflag22) then
errstyle="·您是"&SMT_user_flagdj&"，只能上传最多 "&userflag22&" 个收藏地址！"
scripterr
end if
else
errstyle="·对不起，此功能已对"&vipshow&"关闭！"
scripterr
end if

rs.addnew
rs("SMT_sortid")=SMT_sortid
rs("SMT_name")=SMT_name
rs("SMT_collection")=SMT_collection
rs("SMT_yp_id")=session("id")
rs.update
rs.close
set rs=nothing

response.write "<script>alert('操作成功，谢谢您的参与！');window.close();</Script>"
Response.End

end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
.inp{color:white;
background:FF7900;
border-top:#FCFF00 1px solid;
border-left:#FCFF00 1px solid;
border-bottom:#AA1000 1px solid;
border-right:#AA1000 1px solid
}
</style>
<title>加入收藏 - <%=citytitle%></title>
<body bgcolor="menu" onkeydown='if((event.ctrlKey)||(event.keyCode==116)){event.keyCode=0;return false}' style="border:0;margin:5">

<table width="100%" height=100% border="0" cellspacing="0" cellpadding="0">
<tr><td align=center>
<%
if userflag26=0 or userflag22=0 or userflag9=0 or SMT_user_vip=1 or session("id")="" then
response.write "<script>alert('操作出错，下面是产生错误的可能原因：\n\n·您未登录或还没有注册！\n\n·您不允许使用此功能！');window.close();</Script>"
Response.End
end if

tit=request("tit")
page=request("page")
if tit<>"" or page<>"" then%>
<!--======================-->
<table width="100%" border="0" cellspacing="0" cellpadding="5" align=center>
<form name="addform" method="post" action="collection.asp?action=save" onSubmit="return checkdata()">
<tr><td><select name="SMT_sortid">
<option value=0 selected>不分类</option>
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_collection_sort where SMT_yp_id="&session("id")&" order by SMT_date desc"
rs.open sql,conn,1,1
do while not rs.eof%>
<option value=<%=rs("SMT_id")%>><%=rs("SMT_collection_sort")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%></select>　<a href=# onclick="javascript:window.open('user/my_collection_sort.asp','_blank','');window.close()" class=red>新增分类</a>　<a href=user/my_collection.asp class=red target=_blank>我的收藏</a></td></tr>
<tr><td>标题 <input name="SMT_name" type="text" size="30" maxlength="50" value="<%=tit%>"></td></tr>
<tr><td>地址 <input name="SMT_collection" type="text" size="40" maxlength="50" value="<%=application("cityurl")&page%>"></td></tr>
<tr><td><input type="submit" name="Submit" value=" 添 加 " class=inp>　<input type="button" onclick="window.close()" name="Submit" value=" 关 闭 " class=inp></td></tr>
</form>
</table>
<!--======================-->
<%end if%>
</td></tr>
</table>
⌨️ 快捷键说明

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