index.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"-->
<%
page = CLng(request("page"))
judge=request("judge")
judge2=request("judge2")
judge3=0
L_UserID=Session("L_UserID")
L_Type=Request("LouHB_Type")
L_Key=Request("LouHB_Key")
Call index

Set Lours=server.createobject("adodb.recordset")
If L_Key = "" Then
List="Select * From LHB_WenZhang Order By L_FaBuSJ Desc"
Else
List="Select * From LHB_WenZhang where "&L_Type&" like '%"&L_Key&"%'"
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" class="table4">
<tr>
<td height="30" class="td3">点标题可查看购买记录</td>
<td align="center" class="td3">&nbsp;</td>
<td align="center" class="td3">&nbsp;</td>
<td align="center" class="td3">&nbsp;</td>
<td align="center" class="td3">&nbsp;</td>
<td align="center" class="td3">&nbsp;</td>
</tr>
<tr>
<td width="270" height="30" align="center" background="pic/bg.gif" class="td3">【标-----题】</td>
<td width="120" align="center" background="pic/bg.gif" class="td3">【备注1】</td>
<td width="120" align="center" background="pic/bg.gif" class="td3">【备注2】</td>
<td width="120" align="center" background="pic/bg.gif" class="td3">【备注3】</td>
<td width="70" align="center" background="pic/bg.gif" class="td3">【价格】</td>
<td width="68" align="center" background="pic/bg.gif" class="td3">【操作】</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" class="table11">
<%
response.write "<a href='LHB_Buy.asp?LouHB_Key="&Lours("L_WenZhangID")&"&LouHB_Type=L_WenZhangID' "
response.write ">"
L_BiaoTi=Lours("L_BiaoTi")  '将数据库的字段值赋到变量上
b=Title_Size
If Len(L_BiaoTi)>b Then
L_BiaoTi=Left(L_BiaoTi,b)  '则提取前段的i位的字符串
response.write (L_BiaoTi & "...")
Else
response.write (L_BiaoTi)
End If
response.write "</a>"
%></td>
<td class="table11"><%=Lours("L_BeiZhu1")%></td>
<td class="table11"><%=Lours("L_BeiZhu2")%></td>
<td class="table11"><%=Lours("L_BeiZhu3")%></td>
<td class="table11" align="center">
<%
If Lours("L_JiaGe")=0 Then
response.write "免费"
ElseIf Lours("L_JiaGe")> 0 Then
response.write ""&Lours("L_JiaGe")&""
End If
%></td>
<td class="table11" align="center"><a href="Add_WenZhang.asp?LouHB_ID=<%=Lours("ID")%>&LouHB_TianJ_XiuG=2">修　改</a><br><a href="LHB_Delete.asp?LouHB_Table=LHB_WenZhang&LouHB_ID=<%=Lours("L_WenZhangID")%>" onClick="return confirm('操作提示：您确实要删除该文章吗？');">删　除</a></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="index.asp" 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
%>