config.asp

来自「基于asp的博客系统+论文(代码齐全)经过调试」· ASP 代码 · 共 18 行

<%
	Dim cfgTitle
	Dim ErrConfig
	'设置网页标题
	if request.QueryString("user") <> "" then
		call creaters(rs_title,"select * from title where username='" & request.QueryString("user") & "'")
			if not rs_title.eof then
			cfgTitle = "个人博客网站 " & rs_title("Description")
			end if
		call closers(rs_title)
	end if	
	'设置地址栏地址
	ErrConfig = "请将地址栏改为 http://" & request.ServerVariables("SERVER_NAME") & "/Default.asp?user=您用户名"	
	if request.QueryString("user") = "" then
		response.Cookies("LocalUser").Expires = now()
		response.Redirect("Error.asp")
	end if
%>