www.gusucode.com > 盐城分类信息网asp源码程序 > u_xxgl.asp
<%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183
'***********************************
%><!--#include file="inc/conn.asp"-->
<!--#include file="usercookies.asp"-->
<!--#include file="inc/inc.asp"-->
<%dim sc
sc=Request("sc")%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>-会员管理中心-信息管理</title>
<LINK href="images/at_news.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.td1 {border-bottom:1px solid #AA0604; height:31; border-left-width:1px; border-right-width:1px; background-image:url(img/titlebg1.jpg);}
.td4 {border-bottom:1px solid #999999; height:25; background-color:#C1FFC1; border-left-width:1px; border-right-width:1px; border-top-width:1px}
-->
</style>
</head>
<SCRIPT language=JavaScript>
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall' )
e.checked = form.chkall.checked;
}
}
function loadThreadFollow(t_id,b_id){
var targetImg =eval("document.all.followImg" + t_id);
var targetDiv =eval("document.all.follow" + t_id);
if ("object"==typeof(targetImg)){
if (targetDiv.style.display!='block'){
targetDiv.style.display="block";
}else{
targetDiv.style.display="none";
}
}
}
//-->
</SCRIPT>
<body topmargin="0">
<%call t()%>
<div align="center">
<table width="956" id="table1" bgcolor="#FFFFFF" style="border-right:1px solid #999999; border-top:1px solid #999999;border-left:1px solid #999999;border-bottom:1px solid #999999; padding:1px; border-top-width:1px; border-bottom-width:1px" cellspacing="0" cellpadding="0">
<tr>
<td width="158" height="25" class=td1>
<p align="center">会员管理系统</td>
<td width="1" height="170" rowspan="2"> </td>
<td width="594" height="25" class=td1>
<p align="center">会员管理中心</font>-信息管理</td>
</tr>
<tr>
<td width="158" height="144" bgcolor="#F6F6F6" valign="top"><!--#include file=userleft.asp--></td>
<td valign="top" bgcolor="#F6F6F6">
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<%if sc<>"" then
username=request.cookies("cnmai")("username")
id=trim(request("selectedid"))
if trim(id)="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
response.end
end if
str2=split(id,",")
set rs=server.createobject("adodb.recordset")
for i=0 to ubound(str2)
sql="select * from [xinxi] where username='"&username&"' and id="&cstr(str2(i))
rs.open sql,conn,1,1
'On Error Resume Next
if rs("tupian")<>"" then
tupian=rs("tupian")
fileExt=lcase(right(tupian,4))
if fileEXT=".gif" or fileEXT=".jpg" then
call deltu()
end if
end if
rs.close
sql="delete from [xinxi] where username='"&username&"' and id="&cstr(str2(i))
rs.open sql,conn,1,3
sql1="delete from [shoucang] where username='"&username&"' and scid='"&cstr(str2(i))&"' "
rs.open sql1,conn,1,3
sql2="delete from [hf] where xxid='"&cstr(str2(i))&"' "
rs.open sql2,conn,1,3
next
response.write "<script language=JavaScript>" & chr(13) & "alert('删除信息成功！');" & "window.location='u_xxgl.asp'" & "</script>"
response.end
rs.close
set rs=nothing
closedb
sub deltu()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(Server.MapPath("uptupian\"&tupian)) then
objFSO.DeleteFile(Server.MapPath("uptupian\"&tupian))
end if
set objfso=nothing
end sub
else%>
<FORM name=thisForm action="u_xxgl.asp" method=POST>
<tr>
<td width="6%" height="25" align="center" bgcolor="#FFE3C8">
<p>编号</td>
<td width="44%" height="25" align="center" bgcolor="#FFE3C8">
标 题</td>
<td width="12%" height="25" align="center" bgcolor="#FFE3C8">
浏览/回复</td>
<td width="14%" height="25" align="center" bgcolor="#FFE3C8">
发布时间</td>
<td width="11%" height="25" align="center" bgcolor="#FFE3C8">
</td>
<td width="4%" height="25" align="center" bgcolor="#FFE3C8">
</td>
<td width="8%" height="25" align="center" bgcolor="#FFE3C8">
</td>
</tr>
<%
dim ThisPage,Pagesize,Allrecord,Allpage
i=0
ii=1
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
username=request.cookies("cnmai")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select id,biaoti,llcs,hfcs,fbsj,a,b,yz from [xinxi] where username='"&username&"' order by fbsj desc,b"
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td></td><td><li>没有记录</td></tr>"
else
rs.Pagesize=20
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
do while not rs.eof
b=trim(rs("b"))
bb=len(b)
id=rs("id")
%>
<tr>
<td width="6%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<%=i+1%>
</td>
<td width="44%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<p align="left"><a target="_blank" href="x.asp?cnmai=<%=id%>"><%if rs("a")="0" then%><%=rs("biaoti")%><%else%><font color="#<%=rs("a")%>"><%=rs("biaoti")%></font><%end if%></a><%if b<>0 then%><img src="image/tj.gif"><%for ii=1 to bb%><img src="image/num/<%=Mid(b,ii,1)%>.gif"><%next%><%end if%></td>
<td width="12%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<%=rs("llcs")%>/<%=rs("hfcs")%></td>
<td width="14%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<%=datevalue(rs("fbsj"))%>
</td>
<td width="11%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<font color="#666666">
<span id="followImg<%=i%>" style="CURSOR: hand" onClick="loadThreadFollow(<%=i%>,5)">管理
操作</span></font></td>
<td width="4%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<%if rs("yz")=1 then%><font color="#008000">√</font><%else%><font color="#FF0000">ⅹ</font><%end if%>
</td>
<td width="8%" height="26" align="center" bordercolor="#E1E1E1" style="border-bottom-style: solid; border-bottom-width: 1">
<input type="checkbox" name="selectedid" value="<%=id%>"></td>
</tr>
<tr style="display:none" id="follow<%=i%>">
<td width="101%" height="25" align="center" style="border-bottom-style: none; border-bottom-width: medium" colspan="7">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
<tr>
<td width="19%" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E1E1" align="center">
<font color="#CC5200"><a href="u_xxgl.asp?selectedid=<%=id%>&sc=ok"><font color="#FF0000">删除</font></a></font></td>
<td width="39%" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E1E1" align="center">
<a href="e_x.asp?id=<%=id%>"><font color="blue">修改刷新</font></a><font color="#999999">（刷新可将您的信息排在前例）</font></td><td width="18%" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E1E1" align="center">
<%if rs("yz")=1 then%><font color="#CC0000">已验证</font><%else%><a href="#" ONCLICK="window.open('e_x_d.asp?id=<%=id%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=210,height=150,left=300,top=100')">使用验证道具<%end if%></a></td>
</tr>
</table>
</td>
</tr>
<%
i=i+1
rs.movenext
if i>=Pagesize then exit do
loop
end if
%> <tr>
<td width="99%" height="25" colspan="7">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="49">
<tr>
<td height="25" width="151">
<p align="center">
</td>
<td height="25" width="126">
<p align="center"> </td>
<td height="25" width="118">
<p align="right"> </td>
<td height="25" width="200">
<p align="center">
<INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>选中所有记录
<input onclick=javascript:showoperatealert(1) type="submit" value="删除" name="sc"></td>
</tr>
<tr>
<td height="25" width="151" align="center" bgcolor="#FFE3C8">
共有 <font color="#CC5200"><%=Allrecord%></font> 条记录</td>
<td height="25" width="126" align="center" bgcolor="#FFE3C8">
共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="25" width="118" align="center" bgcolor="#FFE3C8">
现在是第
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="25" width="200" align="center" bgcolor="#FFE3C8">
<%
if ThisPage<2 then
response.write "<font color=""#808080"">首页</font> "
response.write "<font color=""#808080"">上一页</font> "
else
response.write "<a href=?page=1>首页</a> "
response.write "<a href=?page="&ThisPage-1&">上一页</a> "
end if
if Allpage-ThisPage<1 then
response.write "<font color=""#808080"">下一页</font> "
response.write "<font color=""#808080"">尾页</font> "
else
response.write "<a href=?page="&(ThisPage+1)&">下一页</a> "
response.write "<a href=?page="&Allpage&">尾页</a> "
end if
%></td>
</tr>
</table>
</td>
</tr>
</form>
<%end if%>
</table>
</td>
</tr>
</table>
</div>
<table border="0" width="88%" id="table2" style="border-collapse: collapse">
<tr>
<td><!--#include file="foot.asp"--></td>
</tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
closedb
%><%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183
'***********************************
%>