| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 402 人关注过本帖
标题:为什么接收不到ID值(已解诀)
只看楼主 加入收藏
lili0610931
Rank: 1
等 级:新手上路
帖 子:133
专家分:0
注 册:2007-7-6
收藏
 问题点数:0 回复次数:0 
为什么接收不到ID值(已解诀)
pic_list.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>显示 </title>
</head>
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from ad_user_pic where user_pic_delete='1'"
rs.open sql,conn,1,1
If rs.bof Or rs.eof Then
response.write"没有可用的数据"
Else
counts=5
rs.pagesize=counts'每页显示的行数
allpage=rs.pagecount'总页数
page=request("page")'从url获取当前页 本句未修改前是page=request.querystring("page")
If not IsNumeric(page) Then
   page=1
End if
if IsEmpty(page)Or CInt(page) <1 Then
   page=1
elseif CInt(page)>=allpage Then
   page=allpage
End If
rs.absolutepage=page
%>
<body>
<table width="100%" border="1" cellpadding="0">
   <tr>
     <td> <div align="center">姓名 </div> </td>
     <td> <div align="center">图片名称 </div> </td>
     <td> <div align="center">删除 ?修改 </div> </td>
     <td> <div align="center">审核 </div> </td>
   </tr>  
   <%
  do while not rs.eof and counts>0
  %>
   <tr>
     <td> <div align="center"> <%=rs("user_pic_name")%> </div> </td>
     <td> <div align="center"> <%=rs("user_pic_pn")%> </div> </td>
     <td> <div align="center"> <a href="pic_delete.asp?id=<%=rs("user_pic_id")%>">删除 </a>|<a href="pic_update.asp?id=<%=rs("user_pic_id")%>">修改 </a> </div> </td>
     <td> <div align="center">
       <%if cint(rs("user_pic_fake"))=1 then%>
       <a href="pic_cancel_fake.asp?id=<%=rs("user_pic_id")%>"><%="取消审核"%> </a>
         <%else%>
         <a href="pic_apply_fake.asp?id=<%=rs("user_pic_id")%>"><%="申请审核"%> </a>
         <%end if%>
     </div> </td>
   </tr>
   <%
  counts=counts-1
  rs.movenext
  loop
  end if
  %>
</table>
<%
If page=1 Then
response.write(" <a href=pic_list.asp>首页 </a>")
Else
response.write(" <a href=pic_list.asp?page=1>首页 </a><a href=pic_list.asp?page="&page-1&">上一页 </a>")
End If
response.write("第"&page&"页")
If page=allpage Then
response.write(" <a href =pic_list.asp>尾页 </a>")
Else
response.write(" <a href=pic_list.asp?page="&page+1&">下一页</a><a href=pic_list.asp?page="&allpage&">尾页 </a>")
End if
%>
</body>
</html>

取消审核代码
pic_cancel_fake.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/conn.asp"-->
<!--#include fiel="../inc/ip.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>取消审核 </title>
</head>
<%
id=request.QueryString("id")
response.Write id
response.end
sql="select * from ad_user_pic where user_pic_id="&id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
sortname=rs("user_pic_pn")
sortsay=rs("user_pic_apic")
sortname=rs("user_pic_name")

sql1="select * from ad_ad_blog"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,3

rs1.addnew
rs1("user_sort_id")=id
rs1("user_sort_name")=sortnmae
rs1("ad_log_gut")=sortsay
rs1("ad_log_name")=sortusername
rs1("ad_log_date")=now()
rs1("ad_log_ip")=getIP
rs1.update

sql2="update ad_user_pic set user_pic_fake='0' where user_pic_id="&id
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,3
response.Write" <script>alert('已经取消审核!');window.location.href='pic_list.asp'</script>"
%>
<body>
</body>
</html>
为什么接收不到ID值呢?为什么啊

[[it] 本帖最后由 lili0610931 于 2008-5-16 16:27 编辑 [/it]]
搜索更多相关主题的帖子: 解诀 
2008-05-16 14:11
快速回复:为什么接收不到ID值(已解诀)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026465 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved