lhb_buy.asp

思翔会员制收费阅读（文章管理）系统20080323 收费按每点击一次收费一次

<!-- #include file="LHB_Check_Session.asp" -->
<!-- #include file="Config.asp"-->
<!-- #include file="LHB_Search.asp"-->
<!-- #include file="LHB_Copy.asp" -->
<script language="JavaScript" src="css/page.js"></script>
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<!-- #include file="LHB_DHT_02.asp"-->
<%
Call Buy
page = CLng(request("page"))
judge=request("judge")
judge2=request("judge2")
judge3=0
L_Type=Request("LouHB_Type")
L_Key=Request("LouHB_Key")

Set Lours=server.createobject("adodb.recordset")
If L_Type <> "" Then
List="Select L_BiaoTi,L_WenZhangID From LHB_WenZhang where "&L_Type&" like '%"&L_Key&"%'"
Else
List="Select L_BiaoTi,L_WenZhangID From LHB_WenZhang Order By L_FaBuSJ Desc"
End If
Lours.Open List,Louconn,1,1

If Lours.EOF And Lours.BOF Then
response.write "数据库中没有任何文章……"
Else
%>
<table width="768" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="488" height="30" align="center" background="pic/bg.gif">文章标题</td>
<td width="280" align="center" background="pic/bg.gif">曾阅读过的会员</td>
</tr>
<%
Lours.MoveFirst
Lours.PageSize = Page_Size  '每页显示的条数  
If page < 1 Then page = 1 
If page > Lours.PageCount Then page = Lours.PageCount  
Lours.AbsolutePage = page
For ipage = 1 To Lours.PageSize
%>
<tr>
<td height="30" valign="top" class="table7"><%=Lours("L_BiaoTi")%></td>
<td class="table7">
<%
Set rs=server.createobject("adodb.recordset")
Read="Select a.L_ReadTime,b.L_UserName From LHB_YueDuJL a Left Join LHB_YongHu b on a.L_UserID=b.L_UserID where L_WenZhangID='"&Lours("L_WenZhangID")&"'"
rs.Open Read,LouConn,1,1

If rs.EOF And rs.BOF Then
response.write "目前该文章无人购买……"
Else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%Do While Not rs.EOF%>
<tr>
<td height="30"><%=rs("L_UserName")%>于<%=rs("L_ReadTime")%>阅读</td>
</tr>
<%
rs.Movenext
Loop
%>
</table>
<%
End If
rs.Close
Set rs=Nothing
%></td>
</tr>
<%
Lours.MoveNext
If Lours.EOF Then Exit For   
Next
%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="768" class="table4">
<form onSubmit="return test();" method="Post" action="" id=form2 name=form2>
<tr> 
<td width="220" height="30" background="pic/bg.gif"> 
<%
If page = 1 Then 
Response.Write "第一页　上一页" 
End If
If page <> 1 Then 
Response.Write "<a href=index.asp?page=1&LouHB_Type="&L_Type&"&LouHB_Key="&L_Key&">第一页</a>" 
Response.Write "　<a href=index.asp?page=" & (page - 1) & "&LouHB_Type="&L_Type&"&LouHB_Key="&L_Key&">上一页</a>" 
End If
If page <> Lours.PageCount Then 
Response.Write "　<a href=index.asp?page=" & (page + 1) & "&LouHB_Type="&L_Type&"&LouHB_Key="&L_Key&">下一页</a>" 
Response.Write "　<a href=index.asp?page=" & Lours.PageCount & "&LouHB_Type="&L_Type&"&LouHB_Key="&L_Key&">最后一页</a>" 
End If 
If page = Lours.PageCount Then 
Response.Write "　下一页　最后一页" 
End If
%></td>
<td colspan="2" background="pic/bg.gif">跳转到第 
<%Response.Write "<input type=text size=5 maxlength=4 name=page class=button1><input type=hidden name=judge value=1>"  '显示输入页数框并将page,judge参数传递下去%>
页</td>
</tr>
<tr> 
<td height="25" colspan="3">文章数：<%=Lours.recordCount%>　总页数：<%=Lours.PageCount%>　当前页次：<%=page%><input name="LouHB_Type" type="hidden" value="<%=L_Type%>"><input name="LouHB_Key" type="hidden" value="<%=L_Key%>"></td>
</tr>
</form>
</table>
<%
End If
Lours.Close
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
Call Copy
%>