function.asp

秘密网源代码 传闻拉了 100W风投

		else
		Set Temp23  = conn.execute("Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID&" and Hit_UserID="&CookieUserID)
        If not Temp23.eof then 
         if DateDiff("d",FormatDateTime(Temp23("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit3=false
			else
         	Is_Hit3=true
		  end if
          Temp23.close
          set Temp23=nothing
         end if
		 end if
		 else
		 Set Temp23  = conn.execute("Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'")
        If not Temp23.eof then 
         if DateDiff("d",FormatDateTime(Temp23("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit3=false
			else
         	Is_Hit3=true
		  end if
          Temp23.close
          set Temp23=nothing
         end if
		 end if

			If Is_Hit3=true  then
			Temp_HitStr3 = "已埋过"
			else
				Temp_HitStr3 = "<a href='javascript:Hit3("&Src_ID&","&UserID&")' onMouseOver='window.status=""我埋！"";return true;'>踩下去</a>"
			end if
		Is_Hit3 = Temp_HitStr3
	End Function
	
	'是否已埋。。(群组)
	Public Function Is_Hit4(Post_ID,UserID)
		Temp_HitStr4 = ""
		if Web_DigLogin=1 then
		if CookieUserID = "" then
			Temp_HitStr4 = "<a href='javascript:Hit4("&Post_ID&","&UserID&")' onMouseOver='window.status=""请登陆后再埋！"";return true;'>踩下去</a>"
		else
		Set Temp24  = conn.execute("Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&Post_ID&" and Hit_UserID="&CookieUserID)
        If not Temp24.eof then 
         if DateDiff("d",FormatDateTime(Temp24("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit4=false
			else
         	Is_Hit4=true
		  end if
          Temp24.close
          set Temp24=nothing
         end if
		 end if
		 else
		 Set Temp24  = conn.execute("Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&Post_ID&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'")
        If not Temp24.eof then 
         if DateDiff("d",FormatDateTime(Temp24("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit4=false
			else
         	Is_Hit4=true
		  end if
          Temp24.close
          set Temp24=nothing
         end if
		 end if

			If Is_Hit4=true  then
			Temp_HitStr4 = "已埋过"
			else
				Temp_HitStr4 = "<a href='javascript:Hit4("&Post_ID&","&UserID&")' onMouseOver='window.status=""我埋！"";return true;'>踩下去</a>"
			end if
		'Is_Hit4 = Temp_HitStr4
		response.Write(Temp_HitStr4)
	End Function
	
	'是否已支持。。（群组）
	Public Function Is_Hit2(Post_ID,UserID)
		Temp_HitStr2 = ""
		if Web_DigLogin=1 then
		if CookieUserID = "" then
			Temp_HitStr2 = "<a href='javascript:Hit2("&Post_ID&","&UserID&")' onMouseOver='window.status=""请登陆后再支持！"";return true;'>支持一下</a>"
		else
		Set Temp22  = conn.execute("Select Hit_ID,Hit_time From Wo_GroupHit Where Hit_GroupID="&Post_ID&" and Hit_UserID="&CookieUserID&"")
        If not Temp22.eof then 
			if DateDiff("d",FormatDateTime(Temp22("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit2=false
			else
         	Is_Hit2=true
			end if
          Temp22.close
          set Temp22=nothing
         end if
		 end if
		 else
		 Set Temp22  = conn.execute("Select Hit_ID,Hit_time From Wo_GroupHit Where Hit_GroupID="&Post_ID&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'")
        If not Temp22.eof then 
			if DateDiff("d",FormatDateTime(Temp22("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit2=false
			else
         	Is_Hit2=true
			end if
          Temp22.close
          set Temp22=nothing
         end if
		 end if

			If Is_Hit2=true  then
			Temp_HitStr2 = "已支持"
			else
				Temp_HitStr2 = "<a href='javascript:Hit2("&Post_ID&","&UserID&")' onMouseOver='window.status=""我支持下！"";return true;'>支持一下</a>"
			end if
		'Is_Hit2 = Temp_HitStr2
		response.Write(Temp_HitStr2)
	End Function
	
	'直接取得大类列表。。。
	Public Function Get_SrcType(sel_id)
		Set Rs_SrcType = Conn.Execute("Select * from Wo_SrcType Where Type_IsUse=true Order By Type_OrderBy")
		While Not Rs_SrcType.Eof
			selected = ""
			if cint(Rs_SrcType("Type_ID")) = cint(sel_id) then
				selected = " selected"
			end if
			Response.Write("<Option "&selected&" Value='"&Rs_SrcType("Type_ID")&"'>"&Rs_SrcType("Type_Name")&"</Option>")
			Rs_SrcType.MoveNext
		Wend
		Rs_SrcType.Close
		Set Rs_SrcType = Nothing
	End Function
	
	'直接取得小类列表。。。。
	Public Function Get_SrcChild(sel_id)
		Set Rs_SrcChild = Conn.Execute("Select * from Wo_SrcChild Where Child_IsUse=true Order By Child_OrderBy")
		While Not Rs_SrcChild.Eof
			selected = ""
			if cint(Rs_SrcChild("Child_ID")) = cint(sel_id) then
				selected = " selected"
			end if
			Response.Write("<Option "&selected&" Value='"&Rs_SrcChild("Child_ID")&"'>"&Rs_SrcChild("Child_Name")&"</Option>")
			Rs_SrcChild.MoveNext
		Wend
		Rs_SrcChild.Close
		Set Rs_SrcChild = Nothing
	End Function
	
	'取得小类列表(大类的ID)。。。。
	Public Function Get_SrcChild2(Type_ID,sel_id)
		Set Rs_SrcChild = Conn.Execute("Select * from Wo_SrcChild Where Child_IsUse=true and Child_TypeID="&Type_ID&" Order By Child_OrderBy")
		While Not Rs_SrcChild.Eof
			selected = ""
			if cint(Rs_SrcChild("Child_ID")) = cint(sel_id) then
				selected = " selected"
			end if
			Response.Write("<Option "&selected&" Value='"&Rs_SrcChild("Child_ID")&"'>"&Rs_SrcChild("Child_Name")&"</Option>")
			Rs_SrcChild.MoveNext
		Wend
		Rs_SrcChild.Close
		Set Rs_SrcChild = Nothing
	End Function
	Public Function Get_Line
		Response.Write("<table width='98%' height='1'  border='0' align='center' cellpadding='0' cellspacing='0'>")
        	Response.Write("<tr><td height=""4""></td></tr><tr><td background='Images/dot.jpg'></td></tr><tr><td height=""5""></td></tr>")
        Response.Write("</table>")
	End Function
	
	'提示。。
	Public Function MsgBox2(HintText,HintType,GoWhere)
		Dim Hint,HintTypeText
		Select Case HintType
			Case "0"
				Hint=16
				HintTypeText="出错啦！"
			Case "1" 
				Hint=48
				HintTypeText="警告!"
			Case "2" 
				Hint=64
				HintTypeText="提示!"
		End Select
		Response.Write "<Script Language=VBScript>"
		Response.Write "MsgBox """ & Replace(HintText,"'","") &_
			"""," & Hint & ",""" & HintTypeText & """ "
		Response.Write "</Script>"
		if GoWhere<>"" then
			if GoWhere = "0" then
				Response.Write "<Script Language=JavaScript>history.back();</Script>"
			else
				Response.Write "<Script Language=JavaScript>location.href='" & GoWhere & "';</Script>"
			end if
		end if
		Response.End()
	End Function
	
	'设置图片。。
	Public Function Pub_SetImgWH(IMGPath,MaxW,MaxH)
'
		Set PP = New ImgWHInfo  
		W = PP.imgW(lcase(Server.Mappath(IMGPath)))  
		H = PP.imgH(lcase(Server.Mappath(IMGPath))) 
		Set pp = Nothing	
		if W>MaxW then
			H=H*MaxW/W
			W=MaxW
		end if
		if H >MaxH then
			W=W*MaxH/H
			H=MaxH
		end if
		Pub_SetImgWH = "src='"&IMGPath&"' width='"&int(W)&"' height='"&int(H)&"'  "
	End Function
	
	'检测输入。。。
	Public Function Checkin(s) 
		s = trim(s) 
		s = replace(s," ","&amp;nbsp;") 
		s = replace(s,"'","&amp;#39;") 
		s = replace(s,"""","&amp;quot;") 
		s = replace(s,"&lt;","&amp;lt;") 
		s = replace(s,"&gt;","&amp;gt;") 
		Checkin=s 
	End Function 

	Public Function CreateMultiFolder(ByVal CFolder)
		Dim objFSO,PhCreateFolder,CreateFolderArray,CreateFolder
		Dim i,ii,CreateFolderSub,PhCreateFolderSub,BlInfo
		BlInfo = False
		CreateFolder = CFolder
		On Error Resume Next
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		If Err Then
			Err.Clear()
			Exit Function
		End If
		CreateFolder = Replace(CreateFolder,"\","/")
		If Right(CreateFolder,1)="/" Then
			CreateFolder = Left(CreateFolder,Len(CreateFolder)-1)
		End If
		CreateFolderArray = Split(CreateFolder,"/")
		For i = 0 to UBound(CreateFolderArray)
			CreateFolderSub = ""
			For ii = 0 to i
				CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/"
			Next
			PhCreateFolderSub = Server.MapPath(CreateFolderSub)
			If Not objFSO.FolderExists(PhCreateFolderSub) Then
				objFSO.CreateFolder(PhCreateFolderSub)
			End If
		Next
		If Err Then
			Err.Clear()
		Else
			BlInfo = True
		End If
		Set objFSO=nothing
		CreateMultiFolder = BlInfo
	End Function
End Class
%>