<%@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.End End If CateID=trim(left(request("CateID"),3)) LB1=trim(left(request("LB1"),3)) Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Recordset1__MMColParam = Request.QueryString("ID") End If Dim Recordset1 Dim Recordset1_numRows IP=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 if Recordset1.open sql,conn,1,1 Recordset1_numRows = 0 If 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 '無鏈接文件時顯示數據庫中相應字段的內容(下面的內容) %> 电竞比分网esports:<%=(Recordset1.Fields.Item("標題").Value)%>--水電知識網- - 电竞比分1z <%'IF HTML<>1 THEN%> <%'else%> <%'END IF%>
當前位置:电竞比分1z >> 行業資訊 >> 詳細內容
  <%=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%> ■电竞比分1z (<%=formatdatetime(Rs2("發布日期"),2)%>)
<% Rs2.MoveNext Wend rs2.close SET RS2=NOTHING %>
{ganrao} <% Else '未找到記錄 Response.Write "


***抱歉,沒有找到相關信息***
" Recordset1.Close() Set Recordset1 = Nothing End If conn.close set 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=nothing End Sub %>