mfk_class.asp

来自「日记本（多用户版）V3.0 主要功能： 1、日记本基本功能：添加、修改日记等。」· ASP 代码 · 共 42 行

<%
class Angelic
	Private formstr
	public sub openmdb
		set conn=Server.CreateObject("ADODB.Connection") 
		conn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("mdb/links.mdb")
			end sub
	public function checkstr(str)
		str=trim(str)
		if str="" and isnull(str) then exit function
		str=replace(str,"'","")
		checkstr=str
		end function
	public sub closeconn
		conn.close
		set conn=nothing
	end sub
	public function closers(rs)
		if isobject(rs) then exit function
		rs.close
		set rs=nothing
	end function
	public sub writecopy()
		response.write("<a href=""http://www.zjjnet.com"" target=_blank>Mfkiqpl友情链接程序</a>")
	end sub
	public function getstr(textfieldname)
		formstr=request.form(textfieldname)
		getstr=formstr
	end function
	public function alert(msg)
		response.write("<script>alert('"&msg&"\r请返回重新来！');window.history.back(1);</script>")
	end function
	public sub checkadmin()
		if session("admin")<>"mfkiqpl" and Session("admindiary")="" then
		response.write ("<script>alert('你不是管理员，或你的管理信息丢失！\r\r请重新登录！');window.location='index.asp';</script>")
		end if
	end sub	
	public sub clearsession()
		session.Abandon
		end sub
end class
%>