index.asp

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

<!-- #include file="inc/Config.asp"-->
<!-- #include file="inc/md5.asp"-->
<!-- #include file="LHB_Copy.asp" -->
<script language="JavaScript" src="css/page.js"></script>
<!-- #include file="sxang_Manage/LHB_Search.asp"-->
<!-- #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_Type=Request("LouHB_Type")
L_Key=Request("LouHB_Key")
L_UserID=Session("L_UserID")
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
i=1
%>
<table width="768" border="0" cellspacing="0" cellpadding="0" align="center" class="table4">
<tr>
<td width="270" height="30" align="center" bgcolor="666690" class="table12" style="color: #FFFFFF">【标-----题】</td>
<td width="120" align="center" bgcolor="666690" class="table12" style="color: #FFFFFF">【备注1】</td>
<td width="120" align="center" bgcolor="666690" class="table12" style="color: #FFFFFF">【备注2】</td>
<td width="120" align="center" bgcolor="666690" class="table12" style="color: #FFFFFF">【备注3】</td>
<td width="70" align="center" bgcolor="666690" class="table12" style="color: #FFFFFF">【价格】</td>
<td width="68" align="center" bgcolor="666690" class="table12" style="color: #FFFFFF">【状态】</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="table12" <%If i mod 2 = 0 Then response.write "bgcolor='#EFEFEF'" End If%>>
<%
response.write "<a href='LHB_Read.asp?LouHB_WenZhangID="&Lours("L_WenZhangID")&"' "
If Lours("L_JiaGe") <> 0 Then '如果价格等于０，就不提示
response.write "onClick=""return confirm('温馨提示：阅读本文章时您需要支付费用为："&Lours("L_JiaGe")&"');"""
End If
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="table12" <%If i mod 2 = 0 Then response.write "bgcolor='#EFEFEF'" End If%>><%=Lours("L_BeiZhu1")%></td>
<td class="table12" <%If i mod 2 = 0 Then response.write "bgcolor='#EFEFEF'" End If%>><%=Lours("L_BeiZhu2")%></td>
<td class="table12" <%If i mod 2 = 0 Then response.write "bgcolor='#EFEFEF'" End If%>><%=Lours("L_BeiZhu3")%></td>
<td class="table12" align="center" <%If i mod 2 = 0 Then response.write "bgcolor='#EFEFEF'" End If%>><%
If Lours("L_JiaGe")=0 Then
response.write "免费"
ElseIf Lours("L_JiaGe")> 0 Then
response.write ""&Lours("L_JiaGe")&""
End If
%>
</td>
<td class="table12" align="center" <%If i mod 2 = 0 Then response.write "bgcolor='#EFEFEF'" End If%>>
<%
Set rs=server.createobject("adodb.recordset")
Check="Select * From LHB_YueDuJL where L_WenZhangID='"&Lours("L_WenZhangID")&"' And L_UserID='"&L_UserID&"'"
rs.Open Check,Louconn,1,1

If rs.EOF And rs.BOF Then
response.write "未看"
Else
response.write "<Font Color='Red'>已看</Font>"
End If
rs.Close
Set rs=Nothing
%>
</td>
</tr>
<%
Lours.MoveNext
i=i+1
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"> 
<%
If page = 1 Then 
Response.Write "第一页　上一页" 
End If
If page <> 1 Then 
Response.Write "<a href=index.asp?page=1>第一页</a>" 
Response.Write "　<a href=index.asp?page=" & (page - 1) & ">上一页</a>" 
End If
If page <> Lours.PageCount Then 
Response.Write "　<a href=index.asp?page=" & (page + 1) & ">下一页</a>" 
Response.Write "　<a href=index.asp?page=" & Lours.PageCount & ">最后一页</a>" 
End If 
If page = Lours.PageCount Then 
Response.Write "　下一页　最后一页" 
End If
%></td>
<td colspan="2">跳转到第 
<%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%></td>
</tr>
</form>
</table>
<%
End If
Lours.Close
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
Call Copy
%>