function.asp

大型豪华网络游戏交易平台!!有喜欢的就的就快哦~~~~~~

	X = Len(Txt)
	For Ii = 1 To X
		If Asc(Mid(Txt,Ii,1)) < 0 Or Asc(Mid(Txt,Ii,1)) > 255 Then
			Y = Y + 2
		Else
			Y = Y + 1
		End If
	Next
	Count = Clng(Y)
End Function
Function GetPage(Url) 
	Set Retrieval = CreateObject("Microsoft.XMLHTTP")
	With Retrieval
	.Open "Get", Url, False, "", ""
	.Send 
	GetPage = BytesToBstr(.ResponseBody)
	End With 
	Set Retrieval = Nothing 
End Function
Function BytesToBstr(Body)
	set objstream = Server.CreateObject("adodb.stream")
	objstream.Type = 1
	objstream.Mode =3
	objstream.Open
	objstream.Write Body
	objstream.Position = 0
	objstream.Type = 2
	objstream.Charset = "GB2312"
	BytesToBstr = objstream.ReadText 
	objstream.Close
	set objstream = nothing
End Function
Function GetContent(Str,Start,Last)
	If Instr(Lcase(Str),Lcase(Start)) > 0 Then
		GetContent = Right(Str,Len(Str)-Instr(Lcase(Str),Lcase(Start)) + 1)
		GetContent = Left(GetContent,Instr(Lcase(GetContent),Lcase(Last)) + Len(Last) - 1)
	Else
		GetContent="读取数据出错"
	End if
End function
Function ShowCls(cId,Num)
	If Num = 1 Then
		Set Ceb_Rsc = Conn.Execute("Select * From iHelp_Class Where F_ClsNum = " & cId)
		If Ceb_Rsc.Eof And Ceb_Rsc.Bof Then
			ShowClsId = "999999|"
			ShowClsName = "无分类|"
		Else
			Do While Not Ceb_Rsc.Eof
				ShowClsId = ShowClsId & Ceb_Rsc("F_ClsId") & "|"
				ShowClsName = ShowClsName & Ceb_Rsc("F_ClsName") & "|"
			Ceb_Rsc.Movenext
			Loop
			Set Ceb_Rsc = Nothing
		End If
		ShowCls = Left(ShowClsId,Len(ShowClsId)-1) & "|Ceb|" & Left(ShowClsName,Len(ShowClsName)-1)
	Else
		Set Ceb_Rsc = Conn.Execute("Select * From iHelp_Class Where F_ClsNum = " & cId)
		Do While Not Ceb_Rsc.Eof
			bEof = Conn.Execute("Select * From iHelp_Class Where F_ClsNum = " & Ceb_Rsc("F_ClsId")).Eof
			If bEof Then
				ShowCls = ShowCls & "　　" & Ceb_Rsc("F_ClsName") & "<br>"
			Else
				If Ceb_Rsc("F_ClsNum") = 0 Then
					ShowCls = ShowCls & "" & Ceb_Rsc("F_ClsName") & "<br>"
				Else
					ShowCls = ShowCls & "　" & Ceb_Rsc("F_ClsName") & "<br>"
				End If
			End If
			Ii = Ii + 1
				ShowCls = ShowCls & ShowCls(Ceb_Rsc("F_ClsId"))
			Ii = Ii - 1
		Ceb_Rsc.Movenext
		Loop
		Set Ceb_Rsc = Nothing
	End If
End Function
Function zNum(Group)
	Randomize Timer
	zNum = Clng(9999*Rnd+Group)
End Function
Function EnCode(Str,Num)
	But = 2
	If Num = 1 Then
		Str = Unescape(Str)
		For I =1 To Len(Str) 
			If Mid(Str,I,1)<>"霞" Then 
				Pk = Asc(mid(Str,i,1)) - But 
				If Pk > 126 Then 
					Pk = Pk - 95 
				ElseIf Pk < 32 Then 
					Pk = Pk + 95 
				End If 
				A = A & Chr(Pk) 
			Else 
				A = A & Vbcrlf 
			End If 
		Next 
		EnCode = A
	Else
		Cc = Replace(Str,Vbcrlf,"霞")
		For I = 1 To Len(Cc)
			If Mid(Cc,I,1) <> "霞" Then 
				Pk = Asc(Mid(Cc,I,1)) + But 
				If Pk > 126 Then 
					Pk = Pk - 95 
				ElseIf Pk < 32 Then 
					Pk = Pk + 95 
				End If 
				Temp = Temp & Chr(Pk) 
			Else 
				Temp = Temp & "霞" 
			End If 
		Next 
		EnCode = Escape(Replace(Temp,"""",""""""))
	End If
End Function

Function MessageCounts(Num,UserId)
	If Num = 1 Then WhereAnd = "F_HelpMessageLock = 0 And "
	Set Ceb_Rsm = Server.CreateObject("ADODB.RecordSet")
	Ceb_Rsm.Open "Select * From iHelp_Message Where " & WhereAnd & "F_HelpMessageDel = 0 And F_HelpMessageToUserId = " & iCebLoginUserId,Conn,1,1
	If Not Ceb_Rsm.Eof Then MessageCounts = Ceb_Rsm.RecordCount Else MessageCounts = 0
	Set Ceb_Rsm = Nothing
End Function
Function SendEmail(SendEmlInfo,SendEml,SendName,ReceiveEml,EmlTitle,EmlCountent)
    if ismailon = 1 then
	SendMailInfo = Split(SendEmlInfo,",")
	Set Ceb_Msg = Server.CreateObject("JMail.Message")
	Ceb_Msg.Silent = True
	Ceb_Msg.Logging = True
	Ceb_Msg.Charset = "Gb2312"
	Ceb_Msg.ContentType = "text/html"
	Ceb_Msg.MailServerUserName = SendMailInfo(1)
	Ceb_Msg.MailServerPassword = SendMailInfo(2)
	Ceb_Msg.From = SendEml
	Ceb_Msg.FromName = SendName
	Ceb_Msg.AddRecipient (ReceiveEml)
	Ceb_Msg.Subject = EmlTitle
	Ceb_Msg.Body = EmlCountent
	Ceb_Msg.Send (SendMailInfo(0))
	Ceb_Msg.Close()
	Set Ceb_Msg = Nothing
	end if
End Function
Function UserLoginChk(UserName,UserPass)
	If iCebLoginUserName <> "whelpu.com" And iCebLoginUserPass <> "whelpu_pd" Then Exit Function
	If UserName = "" Or UserPass = "" Then Call Info("会员名或密码输入错误",1,"")
	Set Ceb_Rsu = Server.CreateObject("ADODB.RecordSet")
	Ceb_Rsu.Open "Select * From iHelp_User Where F_HelpUserName = '" & UserName & "'",Conn,1,3
	If Ceb_Rsu.Bof And Ceb_Rsu.Eof Then Call Info("会员名或密码输入错误",1,"")
	if ceb_RSu("f_lock") = 1 then call Info("帐户已经被锁定",1,"")
	If Ceb_Rsu("F_HelpUserPass") <> UserPass Then Call Info("会员名或密码输入错误",1,"")
	If Cdate(Split(Ceb_Rsu("F_HelpUserLoginTime")," ")(0)) <> Date() Then Ceb_Rsu("F_HelpUserScore") = Ceb_Rsu("F_HelpUserScore") + fUserLoginScore
	Ceb_Rsu("F_HelpUserLoginTime") = Now()
	Ceb_Rsu("F_HelpUserLoginNum") = Ceb_Rsu("F_HelpUserLoginNum") + 1
	Ceb_Rsu("F_HelpUserLoginIp") = Request.ServerVariables("REMOTE_ADDR")
	Ceb_Rsu.Update
	Session("iCebLoginUserName") = UserName
	Session("iCebLoginUserPass") = UserPass
	Session("iCebLoginUserId") = Ceb_Rsu("F_HelpUserId")
	Session("iCebLoginUserEmail") = Ceb_Rsu("F_HelpUserEmail")
	Session("iCebLoginUserCircular") = Ceb_Rsu("F_HelpUserCircular")
	Session("iCebLoginUserSignature") = Ceb_Rsu("F_HelpUserSignature")
	Session("iCebLoginUserScore") = Ceb_Rsu("F_HelpUserScore")
	Session("iCebLoginUserSex") = Ceb_Rsu("F_HelpUserSex")
	Session("iCebLoginUserFace") = Ceb_Rsu("F_HelpUserFace")
	Session("helpadmin") = Ceb_Rsu("F_clsadmin")
	Set Ceb_Rsu = Nothing
	Set Ceb_Rsr = Conn.Execute("Select Top 100 * From iHelp_User Order By F_HelpUserScore Desc")
	Do While Not Ceb_Rsr.Eof
		uRi = uRi + 1
		If Session("iCebLoginUserId") = Ceb_Rsr("F_HelpUserId") Then Session("iCebLoginUserRank") = uRi
	Ceb_Rsr.Movenext
	Loop
	Set Ceb_Rsr = Nothing
	If Session("iCebLoginUserScore") < 0 Then iUserScores = 0 Else iUserScores = Session("iCebLoginUserScore")
	Set Ceb_Rsg = Conn.Execute("Select Top 1 * From iHelp_Grade Where F_HelpGradeCent <= " & iUserScores & " Order By F_HelpGradeId Desc")
	If Ceb_Rsg("F_HelpGradeCeb") = 1 Then
		Session("iCebLoginUserGrade") = Split(Ceb_Rsg("F_HelpGradeName"),",")(Clng(Session("iCebLoginUserSex"))-1)
	Else
		Session("iCebLoginUserGrade") = Ceb_Rsg("F_HelpGradeName")
	End If
	Set Ceb_Rsg = Nothing
	Set Ceb_Rsc = Server.CreateObject("ADODB.RecordSet")
	Ceb_Rsc.Open "Select * From iHelp_Problem Where F_HelpCancel = 0 And F_HelpUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserAskNum") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserAskNum") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Answer Where F_HelpAnswerUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserAnswerNum") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserAnswerNum") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Answer Where F_HelpAnswerAdopt = 1 And F_HelpAnswerUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserAnswerAdoptNum") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserAnswerAdoptNum") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Problem Where F_HelpCancel = 0 And F_HelpVote = 1 And F_HelpUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then VoteNum = Ceb_Rsc.RecordCount Else VoteNum = 0
	Session("iCebLoginMyVoteNum") = VoteNum
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Vote Where F_HelpVoteUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserVoteNum") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserVoteNum") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Collect Where F_HelpCollectUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserCollectNum") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserCollectNum") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Collect Where F_HelpCollectOeks = 1 And F_HelpCollectUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserCollectNums") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserCollectNums") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Problem Where F_HelpCancel = 0 And F_HelpSolve = 1 And F_HelpUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserSolveNum") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserSolveNum") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Problem Where F_HelpCancel = 0 And F_HelpVote = 0 And F_HelpSolve = 0 And F_HelpUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserSolvesNum") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserSolvesNum") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Problem Where F_HelpCancel = 0 And F_HelpVote = 1 And F_HelpSolve = 0 And F_HelpUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserVotesNum") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserVotesNum") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Problem Where F_HelpCancel = 1 And F_HelpUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserCancelNum") = Ceb_Rsc.RecordCount Else Session("iCebLoginUserCancelNum") = 0
	Ceb_Rsc.Close
	Ceb_Rsc.Open "Select * From iHelp_Vote Where F_HelpVoteSolve = 0 And F_HelpVoteUserId = " & Session("iCebLoginUserId"),Conn,1,1
	If Not Ceb_Rsc.Eof Then Session("iCebLoginUserVoteNums") = Ceb_Rsc.RecordCount Else  Session("iCebLoginUserVoteNums") = 0
	Ceb_Rsc.Close
	Set Ceb_Rsc = Nothing
End Function
Function Check_AdminLogin
	If iCebAdminLoginName = "" Or iCebAdminLoginPass = "" Then
		Call UserLogout(2)
		Call Info("对不起，您尚未登录，或离开时间太长，请重新登入！",2,"Admin_Index.asp")
	Else
		Set Ceb_Rs = Conn.Execute("Select * From iHelp_Admin Where F_AdminName = '" & iCebAdminLoginName & "'")
		If Ceb_Rs.Bof And Ceb_Rs.Eof Then
			Call UserLogout(2)
			Call Info("对不起，帐号或密码出错，请重新登入！",2,"Admin_Index.asp")
		Else
			If Ceb_Rs("F_AdminPass") <> iCebAdminLoginPass Then
				Call UserLogout(2)
				Call Info("对不起，帐号或密码出错，请重新登入！",2,"Admin_Index.asp")
			End If
		End If
		Set Ceb_Rs = Nothing
	End If
End Function
Function UserLogout(Num)
	If Num = 1 Then
		Session("iCebLoginUserName") = "whelpu.com"
		Session("iCebLoginUserPass") = "whelpu_pd"
		Session("iCebLoginUserId") = ""
		Session("iCebLoginUserEmail") = ""
		Session("iCebLoginUserCircular") = ""
		Session("iCebLoginUserSignature") = ""
		Session("iCebLoginUserScore") = ""
		Session("iCebLoginUserSex") = ""
		Session("iCebLoginUserFace") = ""
		Session("iCebLoginUserRank") = ""
		Session("iCebLoginUserGrade") = ""
		Session("iCebLoginUserAskNum") = ""
		Session("iCebLoginUserAnswerNum") = ""
		Session("iCebLoginUserAnswerAdoptNum") = ""
		Session("iCebLoginMyVoteNum") = ""
		Session("iCebLoginUserVoteNum") = ""
		Session("iCebLoginUserCollectNum") = ""
		Session("iCebLoginUserCollectNums") = ""
		Session("iCebLoginUserSignature") = ""
		Session("iCebLoginUserSolveNum") = ""
		Session("iCebLoginUserSolvesNum") = ""
		Session("iCebLoginUserVotesNum") = ""
		Session("iCebLoginUserCancelNum") = ""
		Session("iCebLoginUserVoteNums") = ""
		Session("helpadmin")=""
	ElseIf Num = 2 Then
		Session("iCebAdminLoginName") = ""
		Session("iCebAdminLoginPass") = ""
	End If
End Function
if Session("iCebLoginUserId") = "" then
	islogin="<li class='barleft'><b></b></li><li>欢迎来到求助网，</li><li>请你<a href='login.asp'>登录</a></li><li>或者<a href='reg.asp'>注册</a></li><li class='barright'><b></b></li>"
	else
	if Session("helpadmin") = 1 then
	islogin="<li class='barleft'><b></b></li><li>欢迎来到求助网，</li><li><a href='MyCenter.asp'>个人管理中心</a></li><li><li><a href='admin_index.asp'>后台管理</a></li><li><a href='Login.asp?Logout'>退出登陆</a></li><li class='barright'><b></b></li>"
	else
	islogin="<li class='barleft'><b></b></li><li>欢迎来到求助网，</li><li><a href='MyCenter.asp'>个人管理中心</a></li><li><li><a href='Login.asp?Logout'>退出登陆</a></li><li class='barright'><b></b></li>"
	end if
	end if
function close_conn
 On Error Resume Next
    If IsObject(Conn) Then
        Conn.Close
        Set Conn = Nothing
    End If
end function
%>