act.hits.asp

来自「PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥」· ASP 代码 · 共 27 行

<!--#include file="ACT.User.asp"-->
<%
ConnectionDatabase
 Dim ID,Hits,SqlStr,RS,ModeID
ModeID = ACTCMS.ChkNumeric(Request("ModeID"))
If ModeID =0 Then response.End  
ID = ACTCMS.ChkNumeric(Request("ID"))
 If ID = "" Then
	Hits = 0
 Else
	SqlStr = "SELECT Hits From "&ACTCMS.ACT_C(ModeID,2)&" Where ID=" & ID &""
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open SqlStr, conn, 1, 3
	If RS.bof And RS.EOF Then
		Hits = 0
	Else
		Hits = rs(0) + 1
		rs(0) = Hits
		rs.Update
	End If
	rs.Close
	Set rs = Nothing
 End IF
Response.Write "document.write('" & Hits & "');"


%>