find.asp

用ASP写的一个论坛的程序 数据库是ACCESS 很简单

<!-- #include file="conn.asp" -->
<!-- #include file="config.asp" -->
<%  
    tiebaname=request.Form("tb")
	if tiebaname="" then
	response.Redirect(replace(request.servervariables("HTTP_REFERER"),"?msg=提示:输入不能为空!","")&"?msg=提示:输入不能为空!")
	end if

if strcomp(request.Form("radiobutton"),"jl")=0 then
    dim tiebaname
	if instr(tcstring,tiebaname)>0 then
	response.Redirect(replace(request.servervariables("HTTP_REFERER"),"?msg=提示:禁止使用的名称!","")&"?msg=提示:禁止使用的名称!")
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select  * from  tiebaname  where tiebaname = '"& tiebaname &"'"
	rs.open sql,conn,1,1
	if rs.eof=false then
		response.Write(rs("tiebaname"))
		response.Redirect("msg.asp?tiebaname=" & rs("tiebaname"))
		rs.close
		set rs=nothing
	else
	    set rs=server.createobject("adodb.recordset")
		sql="select * from tiebaname where id is null"
		rs.open sql,conn,1,3
		rs.addnew
		rs("tiebaname")=tiebaname
		rs("regtime")=now()
		rs("ip")=request.ServerVariables("REMOTE_ADDR")
		rs.update
		rs.close
		set rs=nothing
		response.Redirect("msg.asp?tiebaname=" & tiebaname)
	end if
end if
if strcomp(request.Form("radiobutton"),"sstz")=0 then
response.Redirect("sou.asp?msgtitle=" & request.Form("tb")&"&bti=0")
end if
if strcomp(request.Form("radiobutton"),"sszz")=0 then
response.Redirect("sou.asp?msgtitle=" & request.Form("tb")&"&bti=1")
end if
%>