shoucang.asp

信息类网站的不错选择

<!--#include file=conn1.asp-->
<%
dim rs,sql,id,username,myurl
myurl=request("myurl")
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>参数错误！"
response.end
end if

if request.cookies("cnmai")("username")="" or request.cookies("cnmai")("domain")="" or request.cookies("cnmai")("id")="" then 
response.write "<br>"
response.write "<li>你还没有登陆！"
response.write "<meta http-equiv=refresh content=""2;URL=login.asp"">"
response.end
end if
username=request.cookies("cnmai")("username")
set rs=server.createobject("adodb.recordset")

sql="select *  from  shoucang   where  scid="&cint(id)&""
rs.open  sql,conn,1,1
if  not  rs.eof  then
response.write "<br>"
response.write "<li>您已收藏过该信息了！"
response.write "<meta http-equiv=refresh content=""2;URL="&myurl&"?cnmai="&id&""">"
response.end
end if
rs.close

sql="select *  from  shoucang"
rs.open   sql,conn,1,3
rs.addnew
rs("username")=username
rs("scid")=cint(id)
rs("scsj")=now()
rs.update

rs.close
set  rs=nothing
closedb

response.write "<br>"
response.write "<li>收藏成功！"
response.write "<meta http-equiv=refresh content=""2;URL="&myurl&"?cnmai="&id&""">"



%>