<%
server.Execute "/NoHACK1.asp"
dim sql, rs, AutoID, Errh
AutoID = ReqNum(Request("ID"))
'----撈全部
sql = "select * from MP_Comic where C_Op='Y' and AutoID=" & AutoID
set rs = GetRecordset(sql)
If rs.BOF and rs.EOF then
rs.close : set rs = nothing
error1("無此漫畫主題!")
End If
'----加人氣
sql = "update MP_Comic set C_Count=C_Count+1 where AutoID=" & AutoID
Errh = DoCommand(sql)
%>
無標題文件