<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% id=Trim(Request.QueryString("id")) on error resume next dim rs,strSql1 set rs= server.CreateObject("Adodb.recordset") strSql1="select * from News where id=" & id rs.open strsql1,conn,1,1 if not(rs.bof and rs.eof) then do while not rs.eof %> %> Chun Fat (HK) Beauty Limited 進發(香港)謢膚品有限公司 | <%=rs("title")%> <% rs.movenext loop end if %>
<% id=Trim(Request.QueryString("id")) on error resume next dim rslink,strSql set rslink= server.CreateObject("Adodb.recordset") strSql="update news set Hits=Hits+1 where id=" & id conn.execute strSql strSql="select * from News where id=" & id rslink.open strsql,conn,1,1 if rslink.bof and rslink.eof then response.Write "數據庫連接時出現錯誤" else %> <% do while not rslink.eof %> <% rslink.movenext loop end if %>
<%=rslink("title")%>
雙擊滾動屏幕          發布時間: <%= rslink("time") %>      [字體:大 中 ]
<% =rslink("content")%>

[打印]  [關閉]