config.0.asp

ASP企业网络管理系统

<!-- metadata type="typelib" file="G:\Program Files\Common Files\System\ado\msado15.dll" -->
<%
On Error Resume Next
dim strConn,conn,rs
strConn = "Provider=SQLOLEDB;Data Source=HU;Initial Catalog=aspspecial;User ID=sa;Password=;"
'strConn = "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("../db/db.mdb")
'strConn = "DRIVER=SQL Server;UID=sa;DATABASE=aspspecial;SERVER=HU;"
set conn = Server.CreateObject("adodb.connection")
conn.Open strConn
set rs = Server.CreateObject("adodb.recordset")

dim connnews,rsnews
set connnews = Server.CreateObject("adodb.connection")
connnews.Open strConn
set rsnews = Server.CreateObject("adodb.recordset")

function safeConvert(strOrig)
	dim strTemp
	strTemp = Server.HTMLEncode(strOrig)
	strTemp = Replace(strTemp,chr(10),"<br>")
	strTemp = Replace(strTemp," ","&nbsp")
	strTemp = Replace(strTemp,chr(9),"&nbsp&nbsp&nbsp&nbsp")
	'strTemp = Replace(strTemp,",","，")
	'strTemp = Replace(strTemp,"'","’")
	'strTemp = Replace(strTemp,"&quote","”")
	'strTemp = Replace(strTemp,".","。")
	safeConvert = strTemp
end function
function convertBack(strOrig)
	dim strTemp
	'strTemp = Replace(strOrig,"。",".")
	strTemp = Replace(strTemp,"　"," ")
	'strTemp = Replace(strTemp,"，",",")
	strTemp = Replace(strTemp,"<br>",chr(10))
	strTemp = Replace(strTemp,"&lt","<")
	strTemp = Replace(strTemp,"&gt",">")
	strTemp = Replace(strTemp,"&quot",chr(34))
	strTemp = Replace(strTemp,"&nbsp"," ")
	convertBack = strTemp
end function
function r2v(str)
	dim tmp
	tmp=Replace(str,rP,vP,1,-1,1)
	r2v=Replace(tmp,"\","/")
	'Response.Write r2v & "<br>" & rP & "<br>" & vP
end function

function GetWLen(str)
	dim i,l
	l = len(str)
	for i=1 to l
		if asc(mid(str,i,1)) > 255 then
			l = l + 1
		end if
	next
	GetWLen = l
end function

function SubWStr(str,start,leng)
	dim i,realLen
	realLen = 0
	for i=1 to Len(str)
		if realLen <= leng + 1 then
		  if asc(mid(str,i,1)) > 255 then
        realLen = realLen + 2
      else
        realLen = realLen + 1
			end if
		else
			Exit For
		end if
	next
  SubWStr = mid(str,start,i)
end function

function CutString(str,l)
	if GetWLen(str) > l + 3 then
		str = SubWStr(str,0,l) & "..."
	end if
	CutString = str
end function

function CutDate(sDate)
	dim arr
	arr = split(sDate," ")
	CutDate = arr(0)
end function

Function Byte2STR(vIn) 
	strReturn = "" 
	For i = 1 To LenB(vIn) 
	ThisCharCode = AscB(MidB(vIn,i,1)) 
	If ThisCharCode < &H80 Then 
		strReturn = strReturn & Chr(ThisCharCode) 
	Else 
		NextCharCode = AscB(MidB(vIn,i+1,1)) 
		strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
		i = i + 1 
	End If 
	Next 
	bytes2STR = strReturn 
End Function 

Function STR2Byte(vIn) 
	dim strReturn,ThisCharCode,NextCharCode
	strReturn = "" 
	For i = 1 To Len(vIn) 
  	ThisCharCode = hex(AscW(Mid(vIn,i,1)))
  	if (len(ThisCharCode) mod 2) <> 0 then
  	  ThisCharCode = "0" & ThisCharCode
  	end if
  	Response.Write(thischarcode) & "<br>"	
		If len(ThisCharCode) = 2 Then 
  		strReturn = strReturn & Chr(eval("&h" & ThisCharCode))
  	Else 
  		NextCharCode = Mid(ThisCharCode,3,2)
  		ThisCharCode = Mid(ThisCharCode,1,2)
			strReturn = strReturn & Chr(eval("&h" & ThisCharCode)) & Chr(eval("&h" & NextCharCode))
			Response.Write("&h" & ThisCharCode & ":" & eval("&h" & ThisCharCode)) & ":" & Chr(eval("&h" & ThisCharCode)) & "<BR>"
			Response.Write("&h" & NextCharCode & ":" & eval("&h" & NextCharCode)) & ":" & Chr(eval("&h" & NextCharCode)) & "<BR>"
  	End If 
	Next 
	STR2Byte = strReturn 
End Function 

Function Encrypt(theNumber)
	On Error Resume Next
	Dim n, szEnc, t, HiN, LoN, i
	n = CDbl((theNumber + 1570) ^ 2 - 7 * (theNumber + 1570) - 450)
	If n < 0 Then szEnc = "R" Else szEnc = "J"
	n = CStr(abs(n))
	For i = 1 To Len(n) step 2
		t = Mid(n, i, 2)
		If Len(t) = 1 Then
			szEnc = szEnc & t
			Exit For	
		End If
		HiN = (CInt(t) And 240) / 16
		LoN = CInt(t) And 15
		szEnc = szEnc & Chr(Asc("M") + HiN) & Chr(Asc("C") + LoN)
	Next
	Encrypt = szEnc
End Function

Function Decrypt(theNumber)
	On Error Resume Next
	Dim e, n, sign, t, HiN, LoN, NewN, i
	e = theNumber
	If Left(e, 1) = "R" Then sign = -1 Else sign = 1
	e = Mid(e, 2)
	NewN = ""
	For i = 1 To Len(e) step 2
		t = Mid(e, i, 2)
		If Asc(t) >= Asc("0") And Asc(t) <= Asc("9") Then
		NewN = NewN & t
			Exit For
		End If
		HiN = Mid(t, 1, 1)
		LoN = Mid(t, 2, 1)
		HiN = (Asc(HiN) - Asc("M")) * 16
		LoN = Asc(LoN) - Asc("C")
		t = CStr(HiN Or LoN)
		If Len(t) = 1 Then t = "0" & t
		NewN = NewN & t
	Next
e = CDbl(NewN) * sign
Decrypt = CLng((7 + sqr(49 - 4 * (-450 - e))) / 2 - 1570)
End Function

Function Str2NumEnc(vIn) 
	dim strReturn,ThisCharCode,NextCharCode
	strReturn = "" 
	For i = 1 To Len(vIn) 
 		strReturn = strReturn & "%" & Encrypt(AscW(Mid(vIn,i,1)))
	Next 
	Str2NumEnc = strReturn 
End Function 

Function Num2StrDec(vIn) 
	dim strReturn,arr,i
	strReturn = ""
	arr = split(vIn,"%")
	For each i in arr
		if i <> "" then
			strReturn = strReturn & ChrW(eval(Decrypt(i)))
		end if
	Next 
	Num2StrDec = strReturn 
End Function 

Function Str2Num(vIn) 
	dim strReturn,ThisCharCode,NextCharCode
	strReturn = "" 
	For i = 1 To Len(vIn) 
  	ThisCharCode = hex(AscW(Mid(vIn,i,1)))
  	if (len(ThisCharCode) mod 2) <> 0 then
  	  ThisCharCode = "0" & ThisCharCode
  	end if
 		strReturn = strReturn & "%" & ThisCharCode
	Next 
	Str2Num = strReturn 
End Function 

Function Num2Str(vIn) 
	dim strReturn,arr,i
	strReturn = ""
	arr = split(vIn,"%")
	For each i in arr
		if i <> "" then
			strReturn = strReturn & ChrW(eval("&H" & i))
		end if
	Next 
	Num2Str = strReturn 
End Function 
%>