<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%'2016-08-25 移动用户访问页面,通过INCLUDE/Check_WAP.ASP 来判断'如果为移动用户访问,WAPstr=True;如果为PC用户访问,WAPstr=False。'2016-05-20 增加分享功能'2016-08-02 增加“扫一扫在移动设备打开当前页”功能,'2016-08-02 插入 ../include/qrcode/qrcode.htm文件,显示包含当前页面链接的QRCode二维码PG = CStr(Request.ServerVariables("Path_Info")) '获取程序名称ST = Request.ServerVariables("QUERY_STRING") '获取程序参数If WAPstr=True Then '移动用户访问 Response.Redirect "InfoDetail-WAP.ASP?"&ST '跳转到移动用户访问页面,InfoDetail-WAP.ASP Response.EndEnd IfCateID=trim(left(request("CateID"),3))LB1=trim(left(request("LB1"),3))Dim Recordset1__MMColParamRecordset1__MMColParam = "1"If (Request.QueryString("ID") <> "") Then Recordset1__MMColParam = Request.QueryString("ID")End IfDim Recordset1Dim Recordset1_numRowsIP=Request.ServerVariables("REMOTE_ADDR")ConnectInfo conn '连接数据库Set Recordset1 = Server.CreateObject("ADODB.Recordset")if left(ip,7)="132.127" or left(ip,10)="114.255.61" then SQL = "SELECT id,肩题,标题,副题,作者,发布日期,来源,HTML,内容,访问次数,专题名称,关键词,链接文件,最后访问日期 FROM Info WHERE 显示标志<>'0' AND ID = " + Replace(Recordset1__MMColParam, "'", "''") + ""else SQL = "SELECT id,肩题,标题,副题,作者,发布日期,来源,HTML,内容,访问次数,专题名称,关键词,链接文件,最后访问日期 FROM Info WHERE 显示标志='1' AND ID = " + Replace(Recordset1__MMColParam, "'", "''") + ""end ifRecordset1.open sql,conn,1,1 Recordset1_numRows = 0If Recordset1.RecordCount>0 Then '找到记录 Title=TRIM(Recordset1("标题")) '保存标题内容,供MediaInfoLog子程序调用时使用 ZTMC="*"+TRIM(Recordset1("专题名称")) GJC="*"+TRIM(Recordset1("关键词")) HTML=TRIM(Recordset1("HTML")) IF ZTMC<>"*" THEN ZTMC=RIGHT(ZTMC,LEN(ZTMC)-1) IF GJC<>"*" THEN GJC=RIGHT(GJC,LEN(GJC)-1) IF ISNULL(ZTMC) THEN ZTMC="****" IF ISNULL(GJC) THEN GJC="****" MediaInfoLog '记录访问日志 LinkFile = TRIM(Recordset1("链接文件")) If LinkFile <>"" Then '有链接文件 Recordset1.Close() Set Recordset1 = Nothing CONN.CLOSE SET CONN=NOTHING Response.Redirect LinkFile '直接显示链接文件 Response.End '程序终止 End If '无链接文件时显示数据库中相应字段的内容(下面的内容)%>成人福利网-在线成人视频-在线观看的资源视频 <%=(Recordset1.Fields.Item("标题").Value)%>--水电知识网--中国水利水电出版社 <%'IF HTML<>1 THEN%><%'else%><%'END IF%>

影音先锋资源,先锋影音资源,影音先锋av,av电影,在线观看

当前位置:影音先锋资源,先锋影音资源,影音先锋av,av电影,在线观看 >> 行业资讯 >> 详细内容
  <%=CateName%>本类信息阅读排行榜
<%CALL GETPH %>
<%IF TRIM(Recordset1.Fields.Item("肩题").Value)<>"" THEN%> <%END IF%> <%IF TRIM(Recordset1.Fields.Item("副题").Value)<>"" THEN%> <%END IF%> <%Recordset1.Close() Set Recordset1 = Nothing %>
<%=(Recordset1.Fields.Item("肩题").Value)%>

<%=(TRIM(Recordset1.Fields.Item("标题").Value))%>

<%=(Recordset1.Fields.Item("副题").Value)%>

水电知识网 〔<%=Recordset1.Fields.Item("发布日期").Value%>〕  <%IF TRIM(Recordset1.Fields.Item("作者").Value)<>"" THEN%> <%=TRIM((Recordset1.Fields.Item("作者").Value))%>  <%end if%> 来源: <%=TRIM((Recordset1.Fields.Item("来源").Value))%>  
<%IF Recordset1.Fields.Item("HTML").Value="1" THEN%> <%=Recordset1.Fields.Item("内容").Value%> <%ELSE%> <%Words = Replace( "" & (Recordset1.Fields.Item("内容").Value), Chr(13), "
" )%> <%Words = Replace(Words," "," ")%> <%=Words%> <%END IF%>

放大字体   缩小字体   打印
已阅读次数:<%=(Recordset1.Fields.Item("访问次数").Value)%>(<%=(Recordset1.Fields.Item("最后访问日期").Value)%>)
  相关信息
<% Set rs2=SERVER.CreateObject("ADODB.Recordset") sql = "Select TOP 10 * from Info where (专题名称 like '%"&ZTMC&"%' OR 关键词 LIKE '%"&GJC&"%' ) and 显示标志='1' and id <> " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY 发布日期 DESC" rs2.Open sql, conn, 3 'adOpenStatic=3 While Not rs2.EOF%>■&CateID=<%=RS2("类型2")%>" target="_blank" ><%=REPLACE(TRIM(RS2("标题")),"
","")%> <%=REPLACE(TRIM(RS2("副题")),"
","")%>
(<%=formatdatetime(Rs2("发布日期"),2)%>)
<%Rs2.MoveNextWendrs2.closeSET RS2=NOTHING%>
<%Else '未找到记录 Response.Write "


***抱歉,没有找到相关信息***
" Recordset1.Close() Set Recordset1 = NothingEnd Ifconn.closeset conn=nothing%><%SUB MediaInfoLog ' 记录访问日志 ON ERROR RESUME NEXT ID = Request("ID") sql = "update Info set 访问次数 = 访问次数 + 1 where ID ="&ID sql = sql & " and 最后访问IP <> '"& IP & "'" '防止同一IP连续刷计数器 conn.execute (sql) ' sql = "update Info set 最后访问日期 = NOW() where ID ="&ID 'FOR ACCESS sql = "update Info set 最后访问日期 = GETDATE() where ID ="&ID 'FOR SQL conn.execute (sql) IP=Request.ServerVariables("REMOTE_ADDR") sql = "update Info set 最后访问IP = '" & IP & "' where ID ="&ID conn.execute (sql) End Sub%><%Sub GetPH On Error Resume Next Set rs1 = Server.CreateObject("ADODB.Recordset") If CateID<>"" then if CateID="0" then '收藏夹 ProductList = Request.Cookies("MyFavInfo") 'if ProductList<>"" and ProductList<>NULL then if ProductList="" then ProductList="''" end if Sql1 = "SELECT top 15 * FROM info where cstr(ID) In (" & ProductList & ") and 显示标志='1' and 访问次数<>0 order by 访问次数 desc " else sql1="select top 15 * from Info where 类型2 like '"&CateID&"%' and 显示标志='1' and 访问次数<>0 order by 访问次数 desc" end if else sql1="select top 15 * from Info where 显示标志='1' and 访问次数<>0 order by 访问次数 desc" end if rs1.open sql1,conn,1,1 if rs1.eof and rs1.bof then response.write "
没有排行
" else i=0 do while not rs1.eof %> ·&CateID=<%=RS1("类型2")%>" target="_blank" title="浏览【<%=RS1("标题")%>】的详细信息"><%=REPLACE(TRIM(RS1("标题")),"
","")%>

<% i=i+1 if i>=15 then exit do rs1.movenext loop i=0 end if rs1.close set rs1=nothingEnd Sub %>