comm.asp

86bed md5 密码转换与查询工具(带数据库)

<%Function ExcHtml(str)
	Dim strLen,i,strExcHtml
	If IsNull(str) Then 
		ExcHtml = ""
		Exit Function
	End if
	strLen = Len(str)
	strExcHtml = ""
	for i = 1 to strLen
		Select Case mid(str,i,1)
		Case "<"
			strExcHtml = strExcHtml + "&lt;"
		Case ">"
			strExcHtml = strExcHtml + "&gt;"
		Case chr(13)
			strExcHtml = strExcHtml + "<br>"
		Case chr(34)
			strExcHtml = strExcHtml + "&quot;"
		Case "&"
			strExcHtml = strExcHtml + "&amp;"
		'Case chr(32)	           
			'strExcHtml = strExcHtml + "&nbsp;"
			If i + 1 <= strLen and i - 1 >0 Then
				If mid(str,i + 1,1) = chr(32) or mid(str,i + 1,1) = chr(9) or mid(str,i - 1,1) = chr(32) or mid(str,i - 1,1) = chr(9)  Then	                      
					strExcHtml = strExcHtml + "&nbsp;"
				Else
					strExcHtml = strExcHtml + " "
				End if
			Else
				strExcHtml = strExcHtml + "&nbsp;"	                    
			End if
		Case chr(9)
			strExcHtml = strExcHtml + "    "
		Case Else
			strExcHtml = strExcHtml + mid(str,i,1)
		End Select
	Next 
	strExcHtml = Replace(strExcHtml,"'","''")
	ExcHtml = strExcHtml
End Function

%>