linkskey.asp

站完全依据SEO技术建立

<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="cook.asp"-->
<%if fla0<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End 
end if

if request("action")="del" then
conn.execute("delete from SMT_links where SMT_id=" & request("id"))
response.redirect "linkskey.asp?action=reh"

elseif request("action")="edit" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_links where SMT_id="&request("id")
rs.open sql,conn,1,3
rs("SMT_key1")=1
rs.update
rs.close
set rs=nothing
response.redirect "linkskey.asp?action=reh"

elseif request("action")="reh" then
response.write "<meta http-equiv='refresh' content='0;URL=linkskey.asp'>"
end if%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%=citycss%>
<br>
<table width="97%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<tr align=center>
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_links where SMT_key=0 and SMT_key1=0 order by SMT_id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write"<td height=30 align=center>暂无文字连接</td>"
else
n=0
do while not rs.eof
n=n+1%>
<td height="25"><a href=<%=rs("SMT_linkurl")%> title=<%=rs("SMT_linksm")%> target="_blank"><%=rs("SMT_linkname")%></a> <a href=linkskey.asp?action=edit&id=<%=rs("SMT_id")%> class=red>审</a> <a href=linkskey.asp?action=del&id=<%=rs("SMT_id")%> class=red>删</a></td>
<%if n mod 5=0 then response.write "</tr><tr align=center>"
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</tr>
<tr align=center>
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_links where SMT_key=1 and SMT_key1=0 order by SMT_id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write"<td height=40 align=center>暂无图片连接</td>"
else
n=0
do while not rs.eof
n=n+1%>
<td height="40"><a href=<%=rs("SMT_linkurl")%> title=<%=rs("SMT_linksm")%> target="_blank"><img src="<%=rs("SMT_linkname")%>" width=88 height=31 border=0></a> <a href=linkskey.asp?action=edit&id=<%=rs("SMT_id")%> class=red>审</a> <a href=linkskey.asp?action=del&id=<%=rs("SMT_id")%> class=red>删</a></td>
<%if n mod 5=0 then response.write "</tr><tr align=center>"
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</tr>
</table>