forum.asp

来自「这是ASP的OA」· ASP 代码 · 共 28 行

<!-- #include file="const.asp" -->
<%
dim forumname,sql,rs,fid
forumname=trim1(request.QueryString("forum"))
if forumname<>"" then
	call opendb()
	sql="select fid from m3_forum where FTitle='"&forumname&"'"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		call closedb()
		response.Redirect("error.asp?id=2")
		response.End()
	else
		fid=cint(rs("fid"))
		rs.close
		set rs=nothing
		call closedb()
		response.Redirect("list.asp?forumid="&fid&"")
		response.End()
	end if
else
	response.Redirect("error.asp?id=3")
	response.End()
end if
%>