inc_function.asp

个人网站系统,本人基于第三方源码进行更改!

<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
'/格式化时间/
Function FormatTime(TestTime,style)
	Dim n,y,r,s,f,m
	n = Year(TestTime)
	y = Month(TestTime)
	r = Day(TestTime)
	s = Hour(TestTime)
	f = Minute(TestTime)
	m = Second(TestTime)
	if len(n) = 2 then n = "20" & n
	if len(y) = 1 then y = "0" & y
	if len(r) = 1 then r = "0" & r						
	if len(s) = 1 then s = "0" & s
	if len(f) = 1 then f = "0" & f
	if len(m) = 1 then m = "0" & m
	If style = 1 Then
		FormatTime = "<font color=""#FF0000"">"& n &"</font>年<font color=""#FF0000"">"& y &"</font>月<font color=""#FF0000"">"& r &"</font>日<font color=""#FF0000"">"& s &"</font>时"
	Elseif style = 2 Then
		FormatTime = r &"日 "& s & ":" & f & ":" & m
	Elseif style = 3 Then
		FormatTime = n &"年"& y &"月"& r &"日"
	Elseif style = 4 Then
		FormatTime = n & "/" & y & "/" & r
	Elseif style = 5 then
		FormatTime = n &"-"& y &"-"& r &"&nbsp;" & s & ":" & f
	Elseif style = 6 then
		FormatTime = n &"年"& y &"月"& r &"日" & s &":"& f
	Elseif style = 7 then
		FormatTime =  n & y & r & s & f & m
	End if
End Function

'/在一个表中判断用户输入的一个字段的值是否已存在/
Function SearchFieldValue(vTableName,vFieldName,vFieldValue)
	dim strField,sqlField
	set strField = Server.CreateObject("ADODB.Recordset")
	sqlField = "Select * From "& vTableName &" Where "& vFieldName &" = '"& vFieldValue &"'"
	strField.Open sqlField,Conn
	if not strField.EOF then
		SearchFieldValue = True
	else
		SearchFieldValue = False
	end if
	strField.Close
	set strField = nothing
end Function

'/字符过滤/
function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","") 
   changechr=replace(replace(replace(replace(changechr,"'",""),"and",""),"insert",""),"set","") 
    changechr=replace(replace(replace(replace(changechr,"select",""),"update",""),"delete%20from",""),chr(34),"&quot;") 
end function

'/在一个表中判断用户输入的一个字段是否与其它字段重名，除了他本身以外/
Function SearchEditFieldValue(vTableName,vFieldname,vFieldValue,vIDName,intIDValue)
	dim strField1,sqlField1
	set strField1 = Server.CreateObject("ADODB.Recordset")
	sqlField1 = "Select * From "& vTableName &" Where "& vFieldName &" = '"& vFieldValue &"'"
	strField1.Open sqlField1,Conn
	if not strField1.EOF then
		do while not strField1.EOF
			if int(intIDValue) <> strField1(vIDName) then
				SearchEditFieldValue = True
				exit Function
			end if
			strField1.MoveNext
		loop
		SearchEditFieldValue = False
	end if
	strField1.Close
	set strField1 = nothing
End Function

'/判断会员是否超时/
Function IsTimeOut(vMember,vPassWord)
	Dim rdsMember1
	Dim sqlMember1
	
	set rdsMember1 = Server.CreateObject("ADODB.Recordset")
	sqlMember1 = "Select * From Dat_Member Where Member = '"& vMember &"' And PassWord = '"& vPassWord &"'"
	rdsMember1.Open sqlMember1,Conn
	
	If Not rdsMember1.EOF Then
		IsTimeOut = False
	Else
		IsTimeOut = True
	End if
	
	rdsMember1.Close
	set rdsMember1 = nothing
End Function

'/获得会员的编号/
Function getMemberKey(Member)
	Dim rdsMember
	Dim sqlMember
	
	set rdsMember = Server.CreateObject("ADODB.Recordset")
	sqlMember = "Select * From Dat_Member Where Member = '"& Member &"'"
	rdsMember.Open sqlMember,Conn,1,1
	if not rdsMember.EOF then
		getMemberKey = rdsMember("MemberKey")
	else
		getMemberKey = 0
	end if
	rdsMember.Close
	set rdsMember = nothing
End Function

'/获得一个目录的父目录编号/
Function getRootID(nClassID)
	Dim rdsRootID
	Dim sqlRootID
	
	set rdsRootID = Server.CreateObject("ADODB.Recordset")
	sqlRootID = "Select * From Dat_Class Where ClsID = "& nClassID
	rdsRootID.Open sqlRootID,Conn
	if not rdsRootID.EOF then
		getRootID = rdsRootID("RootID")
	else
		getRootID = 0
	end if
	rdsRootID.Close
	set rdsRootID = nothing
End Function
function dvHTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")

    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")

    dvHTMLEncode = fString
end if
end function
Function bbHTMLDecode(reString) '转换HTML代码
	Dim Str:Str=reString
	If Not IsNull(Str) Then
		Str = Replace(Str, "&amp;", "&")
		Str = Replace(Str, "&gt;", ">")
		Str = Replace(Str, "&lt;", "<")
		Str = Replace(Str, "&nbsp;", CHR(32))
	    Str = Replace(Str, "&nbsp;", CHR(9))
		Str = Replace(Str, "&#160;&#160;&#160;&#160;", CHR(9))
		Str = Replace(Str, "&quot;", CHR(34))
		Str = Replace(Str, "&#39;", CHR(39))
		Str = Replace(Str, "", CHR(13))
		Str = Replace(Str, "<br>", CHR(10))
		Str = Replace(Str, "<BR>", CHR(10))
		bbHTMLDecode = Str
	End If
End Function
Function RtnReplaceInt(iCheck,iDefault) 
	If Trim(iCheck)="" Then
		RtnReplaceInt = iDefault
		Exit Function
	End If

	If IsNumeric(iCheck)=false Then
		RtnReplaceInt = iDefault
		Exit Function
	End If

	RtnReplaceInt = iCheck
End Function
'/出错提示函数/
Sub ShowMessage()
	if strMsgTitle = "" then strMsgTitle = "异常出错"
	if strMsg = "" then strMsg = "未知错误"
%>
  <br>
  <table border="0" width="70%" cellspacing="0" cellpadding="0" align="center">
	<tr>
	  <td width="100%" bgcolor="#3986CE">
		<table border="0" width="100%" cellspacing="1">
		  <tr>
		    <td width="100%" align="center" bgcolor="#3986CE" height="30"><% = strMsgTitle%></td>
		  </tr>
		  <tr>
		    <td width="100%" align="center" height="68" bgcolor="#FFFFFF" style="line-height:200%"><% = strMsg%></td>
		  </tr>
          <tr>
            <td width="100%" align="center" height="25" class="banma2"><input onclick="parent.location.href='Javascript:history.back()'" type="button" value="返 回" class="face" name="button1"></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <br>
<%End Sub%>