dbase.asp

北京华信东方网络办公系统

<%
'===========================数据库连接=========================
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
'strcn = "Driver={SQL Server};Server=(local);Uid=sa;Pwd=;DateBase=hxdf;"
strcn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=1q2w3e4r;Data Source=(local);database=hxdf"
conn.Open strcn
'===========================去掉空格===========================
function  xuankong(str)   
dim  result   
       dim  j   
       j=len(str)   
       result=""   
dim  i     
for  i  =  1  to  j   
       select  case  mid(str,i,1)   
                     case  "<"   
                               result=result+"&lt;"  
					 case  ">"   
                               result=result+"&gt;"   
					 case  "'" 
					 			result=result+"''"
                     case  chr(34)       
                               result=result+"&quot;"   
                     case  "&"   
								result=result+"&amp;"    '以上代码转换一些html标记   
				     case  chr(255)  '防止特殊空格   
								result=result   
                     case  chr(13)  '防止回车符   
                               result=result+"<br>"   
				     case  chr(10)  '防止换行符   
								result=result+"<br>"   
                     case  else   
                               result=result+mid(str,i,1)   
                 end  select   
next     
xuankong=result   
end  function   

'==========================加密字符串===========================
function crack(str)
dim temp
	temp=""
dim j
	j=len(str)
dim flag
	flag=true
dim i
	for i = 1 to j	
	if flag then
		temp = temp & (Asc(mid(str,i,1))+12)
		flag=false
	else
		temp = temp & (Asc(mid(str,i,1))-11)
		flag=true
	end if
	next
	'response.Write len(temp)&"<br>"
crack=temp
end function 

'=========================星期================================
function WeekDays(thedate)
dim x
x=split("星期日,星期一,星期二,星期三,星期四,星期五,星期六",",")
WeekDays=x(WeekDay(thedate)-1)
end function

%>
<!--#include file= "norightkey.asp"-->
<OBJECT id="closes" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
	<param name="Command" value="Close">
</OBJECT>