<%
dim strSQL
dim texts'显示详细内容
dim content
dim tid,ttype
tid=(SafeRequest("text_id"))
ttype=(SafeRequest("txt_type"))
select case ttype
case "book_news"
strSQL="update book_news set count_num=count_num+1 where id='" & tid & "'"
objconn.Execute(strSQL)
set texts=server.createobject("adodb.recordset")
texts.open "select * from book_news where id ='" & tid & "'",objconn,1,1
case "borrow_sky"
strSQL="update borrow_sky set count_num=count_num+1 where id='" & tid & "'"
objconn.Execute(strSQL)
set texts=server.createobject("adodb.recordset")
texts.open "select * from borrow_sky where id ='" & tid & "'",objconn,1,1
case "book_knowledge"
strSQL="update book_knowledge set count_num=count_num+1 where id='" & tid & "'"
objconn.Execute(strSQL)
set texts=server.createobject("adodb.recordset")
texts.open "select * from book_knowledge where id ='" & tid & "'",objconn,1,1
case "build_sky"
strSQL="update build_sky set count_num=count_num+1 where id='" & tid & "'"
objconn.Execute(strSQL)
set texts=server.createobject("adodb.recordset")
texts.open "select * from build_sky where id ='" & tid & "'",objconn,1,1
end select
%>
杭州网络公司|杭州网站建设|杭州网站制作|杭州网站推广|杭州网站优化排名服务