数据库编程

开发平台：

ASP/ASPX

UserCheck.asp：源码内容

							<%
Dim Fs_User,ReturnValue,UserUrl
Set Fs_User = New Cls_User
Dim RsSysPara,UserDoMain,tmp_Url,tmp_Url_1
Set RsSysPara = Conn.execute("Select Top 1 MF_Domain From FS_MF_Config")
UserDoMain = RsSysPara(0)
RsSysPara.close
set RsSysPara = nothing
if Request.ServerVariables("SERVER_PORT")<>"80" then
	UserUrl = "http://"&Request.ServerVariables("SERVER_NAME")& ":" & Request.ServerVariables("SERVER_PORT")& Request.ServerVariables("URL")&"?"&request.QueryString
else
	UserUrl = "http://"&Request.ServerVariables("SERVER_NAME")& Request.ServerVariables("URL")&"?"&request.QueryString
end if
ReturnValue = Fs_User.checkStat(session("FS_UserName"),session("FS_UserPassword"))
If ReturnValue=False Then
		tmp_Url = UserDoMain
		tmp_Url_1 = "/"&Add_Root_Dir("/")&G_USER_DIR 
		Response.redirect "http://"&tmp_Url&Replace(Replace(tmp_Url_1,"//","/"),"//","/")&"/Login.asp?UrlAddress=" & Replace(UserUrl,"&","$$")
		Response.end
Else
	if Fs_User.OnlyLogin = 1 then
		 if session("UserLoginCode") <>Fs_User.UserLoginCode then
			Session("FS_UserName") = ""
			Session("FS_UserNumber") = ""
			Session("FS_UserPassword") = ""
			Session("FS_Group") = ""
			Session("FS_IsCorp") = ""
			Session("FS_NickName") = ""
			response.Cookies("FoosunUserCookies")("UserLogin_Style_Num")  = ""
			Session("UserLoginCode") = ""
			strShowErr = "<li>此帐户锁定,系统已经退出</li><li>有人在其他地方登陆您的此帐号!</li>"
			Response.Redirect Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USER_DIR,"//","/")& "/lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Login.asp"
			Response.end
		 End if
	End if
End If 
Sub getGroupIDinfo()
	set getRsGroup = User_Conn.execute("select GroupId,GroupNumber,GroupPoint,GroupDate,GroupMoney,UpfileNum,UpfileSize,LimitInfoNum,GroupDebateNum From FS_ME_Group where GroupId="&Fs_User.NumGroupID)
	if getRsGroup.eof then
		GroupNumber = ""
		GroupPoint = ""
		GroupDate = ""
		GroupMoney = ""
		UpfileNum = ""
		UpfileSize = ""
		LimitInfoNum = ""
		GroupDebateNum = ""
		getRsGroup.close:set getRsGroup = nothing
	else
		GroupNumber = getRsGroup("GroupNumber")
		GroupPoint = getRsGroup("GroupPoint")
		GroupDate = getRsGroup("GroupDate")
		GroupMoney = getRsGroup("GroupMoney")
		UpfileNum = getRsGroup("UpfileNum")
		UpfileSize = getRsGroup("UpfileSize")
		LimitInfoNum = getRsGroup("LimitInfoNum")
		GroupDebateNum = getRsGroup("GroupDebateNum")
		getRsGroup.close:set getRsGroup = nothing
	end if 
	'response.Write UpfileSize
	'response.end
end Sub
%>

						