xinxi_tj.asp

来自「二手书籍系统」· ASP 代码 · 共 32 行

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,id,i,str2
id=trim(request("selectedid"))
if InStr(id,",") >= 1 then
	str2=split(id,",")
	for i=0 to ubound(str2)
		set rs=server.createobject("adodb.recordset")
		sql="select tuijian,fbsj from [xinxi] where id="&trim(str2(i))
		rs.open sql,conn,1,3
		if rs("tuijian")=0 then
			rs("tuijian")=1
			rs("fbsj")=now()
			rs.update
		end if
	next
else 
	str2=id
	set rs=server.createobject("adodb.recordset")
	sql="select tuijian,fbsj from [xinxi] where id="&trim(str2)
	rs.open sql,conn,1,3
	if rs("tuijian")=0 then
		rs("tuijian")=1
		rs("fbsj")=now()
		rs.update
	end if
end	if

response.write "<script language=JavaScript>" & chr(13) & "alert('信息推荐成功！')</script>"
response.write "<meta http-equiv=refresh content=""1;URL=xinxi.asp"">"
%>