www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/admin/yqlj.asp

    <!--#include file="hs.asp"-->
<style  type="text/css">  
.text  
{  
   font-size="12px"
   }
</style>

<script language=vbscript>
<!--
sub ckopen
window.open "ljfb.asp","公告发布","height=400,width=400","toolbar=no,menubar=no,scrollbar=no,resizable=no,location=no,status=no"
end sub

sub sc(id)
a=msgbox("确定要删除此信息?",1)
if a=1 then
window.location="yqlj.asp?id="&id
end if
end sub

sub xggg(id)
window.open "ljxg.asp?id="&id&"","公告发布","height=400,width=400","toolbar=no,menubar=no,scrollbar=no,resizable=no,location=no,status=no"
end sub
-->
</script>
<%
sql="select ljmc,id from zwlike where ltbh='"&ltbh&"'"
set rs=conn.execute(sql)
%>  
<p align="center">
<font color="#FF0000" style="font-size: 20px; font-weight: 700">友情连接管理</font>
</p>
<table cellpadding="0" cellspacing="0" width="709" style="border: 1px solid #6699FF" height="64" align=center>
	<tr>
		<td height="30" style="background-color: #F1F5FA; border-bottom-style:solid; border-bottom-width:1px" bordercolor="#6699FF" colspan="3">
		<p align="center" class=text onclick="ckopen"><font color="#FF0000"><u>
		连接发布</u></font></td>
	</tr>
	<tr>
<%if rs.eof then%>
		<td height="32" width="100%">
		<p align="center" class=text>你还没有发布连接信息!!</td>
<%
else
do while not rs.eof
%> 
<tr>
		<td height="32" width="50%"><u><font color="#0000FF" class=text>
		<p align="center" onclick="xggg(<%=rs("id")%>)"><%=rs("ljmc")%></font></u></td>
        <td height="32" width="50%"><input type=button style="color: #0000FF; background-color: #E7E7E7" value="删 除" onclick="sc(<%=rs("id")%>)"></td>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>	
</tr>

</table>
</div>

<%
id=request("id")
if id<>empty then
sql="select *from zwlike where id="&id&" and ltbh='"&ltbh&"'" 
set rscx=conn.execute(sql)
if rscx.eof then
rscx.close
set rscx=nothing
response.write"<script language=vbscript>window.alert'对不起连接不存在!'</script>"
else
sql="delete *from zwlike where id="&id&" and ltbh='"&ltbh&"'" 
conn.execute(sql)
response.redirect"yqlj.asp"
response.end
end if
end if
%>
<%dbclose%>