⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 njsh.asp

📁 超炫电台程序开发了两个版本了
💻 ASP
字号:
<!--#include file = conn.asp-->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="admin"
MM_authFailedURL="fair.htm"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
dim id
dim title
dim author
dim filesize
dim photo
dim filetype
dim fileurl2
dim cont
dim kanfa
dim email
set rs=server.CreateObject("ADODB.RecordSet") 
sql="select * from article where id"
rs.open sql,conn,1,3
%>
<link rel="stylesheet" href="INCLUDE/SITE.CSS" type="text/css">
<body bgcolor="efefef" leftmargin="0" topmargin="1" onSelectStart="event.returnValue=false;" onConTextMenu="event.returnValue=false">
<table border=0 cellpadding=0 cellspacing=1 width=100%  height=2 bgcolor=#666666>
  <tr bgcolor="#efefef"> 
    <td height=21 width=459 colspan=11 align=left><b>NJ申请表</b>
    </td>
  </tr>
  <tr bgcolor="#efefef" align="center"> 
    <td height="20">NJ名称</td>
    <td height="20">性别</td>
    <td height="20">年龄</td>
    <td height="20">所在城市</td>
    <td height="20">联系QQ</td>
    <td height="20">上网方式</td>
    <td height="20">上网地点</td>
    <td height="20">个人简介</td>
    <td height="20">你的看法</td>
    <td height="20">录音</td>
	<td height="20">审核</td>
  </tr>
    <%
   if rs.recordcount<>0 then
    rs.movefirst
   end if
%>
      <%
        while not rs.eof
        response.write("<tr><td height=20 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; width=10% bgcolor=#efefef ><center>"&rs("title")&"</td>")
        response.write("<td height=20 width=5% bgcolor=#ffffff ><center>"&rs("author")&"")
        response.write("<td height=20 width=5% bgcolor=#ffffff ><center>"&rs("filesize")&"")
        response.write("<td height=20 width=10% bgcolor=#ffffff ><center>"&rs("email")&"")
        response.write("<td height=20 width=10% bgcolor=#ffffff ><center>"&rs("photo")&"")
		response.write("<td height=20 width=10% bgcolor=#ffffff ><center>"&rs("filetype")&"")
		response.write("<td height=20 width=10% bgcolor=#ffffff ><center>"&rs("fileurl2")&"")
		response.write("<td height=20 width=15% bgcolor=#ffffff ><center>"&rs("cont")&"")
		response.write("<td height=20 width=15% bgcolor=#ffffff ><center>"&rs("kanfa")&"")
		response.write("<td height=20 width=5% bgcolor=#ffffff ><center><a href="&rs("fileurl1")&">录音</a>")
		response.write("<td height=20 width=5% bgcolor=#ffffff ><center><a href=addnjsh.asp?title="&rs("title")&"&touxiang="&rs("touxiang")&"&photo="&rs("photo")&"&author="&rs("author")&"&email="&rs("email")&"&cont="&rs("cont")&">是</a>/<a href=njshenqing_dellmalert.asp?id="&rs("id")&"&title="&rs("title")&"&photo="&rs("photo")&">否</a>")
		response.write("</tr>")
      rs.movenext
     wend
      %>
  <tr bgcolor="#efefef"> 
    <td  height="14" width="322" colspan="11"><font color="#378BB9"><b><font color=red size=3>page:</font></b></font> 
    </td>
  </tr>
    </table>
</body>
</html>


⌨️ 快捷键说明

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