📄 check.asp

📁 wapgo网址导航整站源码,WAP源码,更多登陆http://xywap.cn

💻 ASP

字号:

<%
if session("admin")="" then
  response.redirect "admin.asp"
end if
%>
<!--#include file="conn.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>审 核 网 站</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body>
<br><br>
<div align="center"><center>
<table cellspacing="0" width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="100%" bgcolor="#999999" height="20">
<font color="#FFFFFF"><center><p><b>审 核 网 站</b></font>
</td>
</tr>
<tr align="center">
<td width="100%">
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [urls] where [check]=0"
rs.open rsstr,conn,1,2
%>
<table border="0" cellspacing="1" width="100%">
<tr>
<td width="15%" align="center" height="30">
网站名称
</td>
<td width="15%" height="30">
所属栏目
</td>
<td width="30%" height="30">
网站描述
</td>
<td>
审核操作
</td>
</tr>
<%
if rs.recordcount = 0 then response.write("<tr><td>暂无待审网站！</td></tr>")
if rs.recordcount > 0 then
dim j
j=1
do while not rs.EOF
%>

<%
set rsc=Server.CreateObject("ADODB.Recordset")
rscstr="select * from [class] where [ClassID]="& rs("Classid")
rsc.open rscstr,conn,1,2
%>

<tr>
<td width="15%" align="center" height="30">
<a href="<%=rs("url")%>"><%=rs("site")%></a>
</td>
<td width="10%" height="30">
<%=rsc("ClassName")%><br/>
</td>
<td width="30%" align="center" height="30">
<%=rs("about")%><br/>
</td>
<form name="show" method="POST" action="checkok.asp?check=pass&amp;ids=<%=rs("classid")%>&amp;wID=<%=rs("wID")%>">
<td><input type="submit" value="通 过" name="title">
</td></form>
<form name="show" method="POST" action="checkedit.asp?ids=<%=rs("classid")%>&amp;wID=<%=rs("wID")%>">
<td><input type="submit" value="修 改" name="title">
</td></form>
<form name="show" method="POST" action="checkok.asp?check=del&amp;ids=<%=rs("classid")%>&amp;wID=<%=rs("wID")%>">
<td><input type="submit" value="删 除" name="title">
</td></form>
</tr>
<%
rs.MoveNext
j=j+1
loop
end if
%>

</table>
</table>
</center>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -