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
%>