gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\favadd.asp
<!-- #include file="conn.asp" --> <!-- #include file="inc/const.asp" --> <!--#include file="inc/dv_clsother.asp"--> <% dim announceid,SQl,Rs dim rootid dim topic dim url Mybbs.LoadTemplates("postjob") Mybbs.stats=template.Strings(7) Mybbs.nav() If Mybbs.userid=0 Then Mybbs.AddErrCode(6) End If If request("id")="" Then Mybbs.AddErrCode(43) ElseIf Not Isnumeric(request("id")) Then Mybbs.AddErrCode(30) Else AnnounceID=Clng(request("id")) End If Mybbs.ShowErr() url="dispbbs.asp?" url=url & "boardid="&Mybbs.boardid&"&id="&announceid Call chkurl() Mybbs.ShowErr() Call favadd() Mybbs.ShowErr() Mybbs.head_var 1,Mybbs.Board_Data(4,0),"","" Mybbs.Dvbbs_suc("<li>"&template.Strings(8)) Mybbs.activeonline() Mybbs.footer() Sub chkurl() sql="select title from Dv_topic where topicid="&announceid set rs=Mybbs.execute(sql) if rs.eof and rs.bof then Mybbs.AddErrCode(48) Else topic=Mybbs.HtmlEnCode(rs(0)) End If Rs.Close:set rs=nothing End sub sub favadd() sql="select * from Dv_bookmark where username='"&Mybbs.membername&"' and url='"&trim(url)&"'" set rs=server.createobject("adodb.recordset") If Not IsObject(Conn) Then ConnectionDatabase rs.open sql,conn,1,3 if not (rs.eof and rs.bof) then Mybbs.AddErrCode(53) Else rs.addnew rs("username")=Mybbs.membername rs("topic")=Mybbs.checkStr(trim(topic)) rs("url")=Mybbs.checkStr(trim(url)) rs("addtime")=Now() rs.update end if rs.close:set rs=nothing end sub %>