ASP网页设计静态网页手艺：ASP函数库

楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。静态|函数|网页ASP函数库
<%
函数量录
-----------------------------------------------
函数ID：0001[截字符串]
函数ID：0002[过滤html]
函数ID：0003[翻开恣意数据表并显现表布局及内容]
函数ID：0004[读取两种路径]
函数ID：0005[测试某个文件存在否]
函数ID：0006[删除某个文件]
函数ID：0007[判别目次是不是存在]
函数ID：0008[创立目次]
函数ID：0009[删除目次]
函数ID：0010[指定目次的文件列表]
函数ID：0011[指定目次的目次列表]
函数ID：0012[创立文本文件]
函数ID：0013[读取文本文件]
函数ID：0014[检测ID是不是为数字范例]
函数ID：0015[正则表达式测试]
函数ID：0016[取得实行程序的称号]
函数ID：0017[读取用户IP地点信息]
函数ID：0018[上传文件到指定目次并改文件称号]
函数ID：0019[过滤HTML剧本]
函数ID：0020[创立MsAccess数据库]
函数ID：0021[创立MsSQLServer数据库]
函数ID：0022[经由过程JMAIL发信]
函数ID：0023[测试组件是不是安装]
函数ID：0024[上传文件的窗口]
函数ID：0025[获得数据库链接字串]
函数ID：0026[获得multipart/form-data情势上传文件]
函数ID：0027[保留或检察上传到数据库中的数据，带挪用上传窗口]
函数ID：0028[获得图象的范例|宽|高]
函数ID：0029[将当地文件举行二进制剖析，并保留到服务器的指定目次下]
函数ID：0030[将当地数据表或库上传并导进到服务器数据库的表中]
函数ID：0031[前往服务器信息]
函数ID：0032[发生20位长度的独一标识ID]
函数ID：0033[用于左添补指定命量的字符]
函数ID：0034[用于右添补指定命量的字符]
函数ID：0035[格局化工夫(显现)]
函数ID：0036[测试数据库是不是存在]
函数ID：0037[测试数据库中的表是不是存在]
函数ID：0038[在线HTML编纂器]
函数ID：0039[判别是不是奇数]
函数ID：0040[天生考证码图象BMP]
函数ID：0041[天生随秘密码]
函数ID：0042[字符加解密]
函数ID：0043[解密字符加解密]
函数ID：0044[创立数据表]
函数ID：0045[在数据库中拔出字段值]
函数ID：0046[Cookie防乱码写进时用]
函数ID：0047[Cookie防乱码读出时用]
函数ID：0048[检测用户名和暗码是不是准确]
函数ID：0049[天生工夫的整数]
函数ID：0050[取得栏目标一切子栏目字符串并用","离隔]



**************************************************
函数ID：0001[截字符串]
函数名：SubstZFC
作用：截字符串，汉字一个算两个字符，英文算一个字符
参数：str----原字符串
strlen----截取长度
前往值：截取后的字符串
**************************************************
PublicFunctionSubstZFC(ByValstr,ByValstrlen)
Ifstr=""Then
SubstZFC=""
ExitFunction
EndIf
Diml,t,c,i,strTemp
str=Replace(Replace(Replace(Replace(str,"",""),""",Chr(34)),">",">"),"<","<")
l=Len(str)
t=0
strTemp=str
strlen=CLng(strlen)
Fori=1Tol
c=Abs(Asc(Mid(str,i,1)))
Ifc>255Then
t=t+2
Else
t=t+1
EndIf
Ift>=strlenThen
strTemp=Left(str,i)
ExitFor
EndIf
Next
SubstZFC=Replace(Replace(Replace(Replace(strTemp,"",""),Chr(34),"""),">",">"),"<","<")
EndFunction
**************************************************
函数ID：0002[过滤html]
函数名：GlHtml
作用：过滤html元素
参数：str----要过滤字符
前往值：没有html的字符
**************************************************
PublicFunctionGlHtml(ByValstr)
IfIsNull(str)OrTrim(str)=""Then
GlHtml=""
ExitFunction
EndIf
Dimre
Setre=NewRegExp
re.IgnoreCase=True
re.Global=True
re.Pattern="(<.[^<]*>)"
str=re.Replace(str,"")
re.Pattern="(</[^<]*>)"
str=re.Replace(str,"")
Setre=Nothing
str=Replace(str,"","")
str=Replace(str,Chr(34),"")
GlHtml=str
EndFunction
**************************************************
函数ID：0003[翻开恣意数据表并显现表布局及内容]
函数名：OpOtherDB
作用：翻开恣意数据表并显现表布局及内容
参数：DBtheStr----要翻开表的数据库链接字串
参数：Opentdname----要翻开表名
前往值：显现表布局及内容
**************************************************
PublicFunctionOpOtherDB(ByValDBtheStr,ByValOpentdname)
Response.write"<tableborder=0width=100%cellspacing=0cellpadding=0>"&vbCrlf
SetOpdb_Conn=server.createobject("ADODB.Connection")
SetOpdb_Rs=server.createobject("ADODB.Recordset")
Opdb_Conn.openDBtheStr
Opdb_sql_str="select*from"&Opentdname
Opdb_Rs.openOpdb_Sql_Str,Opdb_Conn,1,1
Nfieldnumber=Opdb_Rs.Fields.count
IfNfieldnumber>0then
Response.write"<tr>"&vbCrlf
Fori=0to(Nfieldnumber-1)
Response.write"<tdstyle=border-style:ridge;border-width:1bgcolor=#E1E1E1valign=middlealign=center>"
Response.writeTrim(Opdb_Rs.Fields(i).Name)
Response.write"</td>"&vbCrlf
Next
temptbi=0
DoWhileNotOpdb_Rs.Eof
Response.write"</tr>"&vbCrlf
Fori=0to(Nfieldnumber-1)
If(temptbi<2)Then
Response.write"<tdstyle=border-style:ridge;border-width:1bgcolor=#F6F6F6valign=middle>"
Response.writeTrim(Opdb_Rs.Fields(i))
Response.write"</td>"&vbCrlf
temptbi=temptbi+1
Else
Response.write"<tdstyle=border-style:ridge;border-width:1valign=middle>"
Response.writeTrim(Opdb_Rs.Fields(i))
Response.write"</td>"&vbCrlf
Iftemptbi>=3Then
temptbi=0
Else
temptbi=temptbi+1
EndIf
EndIf
Next
Opdb_Rs.MoveNext
Response.write"</tr>"&vbCrlf
Loop
EndIf
Opdb_Rs.Close
Opdb_Conn.Close
SetOpdb_Rs=Nothing
SetOpdb_Conn=Nothing
Response.write"</table>"&vbCrlf
Endfunction
**************************************************
函数ID：0004[读取两种路径]
函数名：Readsyspath
作用：读取路径
参数：lx----0:服务器IP加路径1:服务物理路径
前往值：路径字串
**************************************************
PublicFunctionReadsyspath(ByVallx)
Dimtemplj,aryTemp,newpath
templj=""
newpath=""
Iflx=0Then
templj="http://"&Request("SERVER_NAME")&Request("PATH_INFO")
aryTemp=Split(templj,"/")
Else
templj=Request("PATH_TRANSLATED")
aryTemp=Split(templj,"")
EndIf
Fori=LBound(aryTemp)ToUBound(aryTemp)-1
Iflx=0Then
newpath=newpath&aryTemp(i)&"/"
Else
newpath=newpath&aryTemp(i)&""
EndIf
Next
Readsyspath=newpath
EndFunction
**************************************************
函数ID：0005[测试某个文件存在否]
函数名：CheckFile
作用：测试某个文件存在否
参数：ckFilename----被测试的文件名（包含路径）
前往值：文件存在前往True,不然False
**************************************************
PublicFunctionCheckFile(ByValckFilename)
DimM_fso
CheckFile=False
SetM_fso=CreateObject("Scripting.FileSystemObject")
IfM_fso.FileExists(ckFilename)Then
CheckFile=True
EndIf
SetM_fso=Nothing
EndFunction
**************************************************
函数ID：0006[删除某个文件]
函数名：DelFile
作用：删除某个文件
参数：dFilename----被删除的文件名（包含路径）
前往值：文件删除前往True,不然False
**************************************************
PublicFunctionDelFile(ByValdFilename)
DimM_fso
DelFile=False
SetM_fso=CreateObject("Scripting.FileSystemObject")
IfM_fso.FileExists(dFilename)Then
M_fso.DeleteFile(dFilename)
DelFile=True
EndIf
SetM_fso=Nothing
EndFunction
**************************************************
函数ID：0007[判别目次是不是存在]
函数名：CheckDir
作用：判别目次是不是存在
参数：ckDirname----目次名（包含路径）
前往值：目次存在前往True,不然False
**************************************************
PublicFunctionCheckDir(ByValckDirname)
DimM_fso
CheckDir=False
SetM_fso=CreateObject("Scripting.FileSystemObject")
If(M_fso.FolderExists(ckDirname))Then
CheckDir=True
EndIf
SetM_fso=Nothing
EndFunction
**************************************************
函数ID：0008[创立目次]
函数名：CreateDir
作用：创立目次
参数：crDirname----目次名（包含路径）
前往值：目次创立乐成前往True,不然False
**************************************************
PublicFunctionCreateDir(ByValcrDirname)
DimM_fso
CreateDir=False
SetM_fso=CreateObject("Scripting.FileSystemObject")
If(M_fso.FolderExists(crDirname))Then
CreateDir=False
Else
M_fso.CreateFolder(crDirname)
CreateDir=True
EndIf
SetM_fso=Nothing
EndFunction
**************************************************
函数ID：0009[删除目次]
函数名：DelDir
作用：删除目次
参数：DlDirname----目次名（包含路径）
前往值：目次删除乐成前往True,不然False
**************************************************
PublicFunctionDelDir(ByValDlDirname)
DimM_fso
DelDir=False
SetM_fso=CreateObject("Scripting.FileSystemObject")
If(M_fso.FolderExists(DlDirname))Then
M_fso.DeleteFolder(DlDirname)
DelDir=True
EndIf
SetM_fso=Nothing
EndFunction
**************************************************
函数ID：0010[指定目次的文件列表]
函数名：ListFiles
作用：指定目次的文件列表
参数：Dirname----目次名（包含路径）
前往值：文件列表字符串，之间用“|”相隔
**************************************************
PublicFunctionListFiles(ByValDirname)
DimM_fso,fNS,fLS,Fnames,FnamesN
SetM_fso=CreateObject("Scripting.FileSystemObject")
If(M_fso.FolderExists(Dirname))Then
SetfNS=M_fso.GetFolder(Dirname)
SetfLS=fNS.Files
ForEachFnamesNinfLS
Fnames=Fnames&FnamesN.name
Fnames=Fnames&"|"
Next
ListFiles=Fnames
EndIf
SetM_fso=Nothing
EndFunction
**************************************************
函数ID：0011[指定目次的目次列表]
函数名：ListDirs
作用：指定目次的目次列表
参数：Dirname----目次名（包含路径）
前往值：目次列表字符串，之间用“|”相隔
**************************************************
PublicFunctionListDirs(ByValDirname)
DimM_fso,fNS,fLS,Fnames,FnamesN
SetM_fso=CreateObject("Scripting.FileSystemObject")
If(M_fso.FolderExists(Dirname))Then
SetfNS=M_fso.GetFolder(Dirname)
SetfLS=fNS.SubFolders
ForEachFnamesNinfLS
Fnames=Fnames&FnamesN.name
Fnames=Fnames&"|"
Next
ListDirs=Fnames
EndIf
SetM_fso=Nothing
EndFunction
**************************************************
函数ID：0012[创立文本文件]
函数名：WritTextFile
作用：创立文本文件
参数：Fname----文本文件称号（包含路径）
参数：WritString----写进的内容
前往值：创立乐成前往True，不然False
**************************************************
PublicFunctionWritTextFile(ByValFname,ByValWritString)
DimM_fso,FnameN
WritTextFile=False
SetM_fso=CreateObject("Scripting.FileSystemObject")
SetFnameN=M_fso.OpenTextFile(Fname,2,True)
FnameN.WriteWritString
FnameN.Close
SetM_fso=Nothing
WritTextFile=True
EndFunction
**************************************************
函数ID：0013[读取文本文件]
函数名：ReadTextFile
作用：读取文本文件
参数：Fname----文本文件称号（包含路径）
前往值：前往读取的文本内容
**************************************************
PublicFunctionReadTextFile(ByValFname)
DimM_fso,FnameN,Fnr
ReadTextFile=""
SetM_fso=CreateObject("Scripting.FileSystemObject")
SetFnameN=M_fso.OpenTextFile(Fname,1,True)
Fnr=FnameN.ReadAll
FnameN.Close
SetM_fso=Nothing
ReadTextFile=Fnr
EndFunction
**************************************************
函数ID：0014[检测ID是不是为数字范例]
函数名：JCID
作用：检测ID是不是为数字范例
参数：ParaValue----被检测的ID值
前往值：前往ID值，假如不为数字范例前往0
**************************************************
PublicFunctionJCID(ByValParaValue)
If((NotisNumeric(ParaValue))OR(Trim(ParaValue)=""))Then
JCID=0
Else
JCID=ParaValue
EndIf
Endfunction
**************************************************
函数ID：0015[正则表达式测试]
函数名：CheckExp
作用：正则表达式测试
参数：patrn----正则表达式
参数：strng----要测试的字符串
前往值：测试假如建立前往True不然False
例CheckExp("(<.[^<]*>)","<br>")
**************************************************
PublicFunctionCheckExp(ByValpatrn,ByValstrng)
DimregEx,retVal
SetregEx=NewRegExp
regEx.Pattern=patrn
regEx.IgnoreCase=False
retVal=regEx.Test(strng)
CheckExp=retVal
EndFunction
**************************************************
函数ID：0016[取得实行程序的称号]
函数名：GT_the_proname
作用：取得实行程序的称号
参数：
前往值：前往实行程序的称号
**************************************************
PublicFunctionGT_the_proname()
Dimfu_name,temp,tempsiz
temp=Request.ServerVariables("PATH_INFO")
fu_name=Split(temp,"/",-1,1)
tempsiz=UBound(fu_name)
GT_the_proname=fu_name(tempsiz)
Endfunction
**************************************************
函数ID：0017[读取用户IP地点信息]
函数名：Readusip
作用：读取用户IP地点信息
参数：
前往值：前往用户IP地点
**************************************************
PublicFunctionReadusip()
DimstrIPAddr
IfRequest.ServerVariables("HTTP_X_FORWARDED_FOR")=""ORInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"unknown")>0Then
strIPAddr=Request.ServerVariables("REMOTE_ADDR")
ElseIfInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")>0Then
strIPAddr=Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")-1)
ElseIfInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),";")>0Then
strIPAddr=Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),";")-1)
Else
strIPAddr=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
EndIf
Readusip=Trim(Mid(strIPAddr,1,30))
EndFunction
**************************************************
函数ID：0018[无组件上传文件到指定目次并改文件称号]
函数名：UpFsRn
作用：无组件上传文件到指定目次并变动文件称号
参数：RetSize---上传限止巨细（单元是M）
参数：Fdir----方针路径
参数：Objwj----方针文件称号
前往值：假如乐成True不然False
例UpFsRn(10,Readsyspath(1)&"zfkhauto","test.txt")
利用表单提取文件<formmethod=POSTaction=function.aspenctype=multipart/form-data><inputtype=filename=T1><inputtype=submitvalue=提交name=B1></form>
**************************************************
PublicFunctionUpFsRn(ByValRetSize,ByValFdir,ByValObjwj)
UpFsRn=False
DimoUpStream,oStream,formsize,Formdata,strFileName,strFileDir,ObjAllPath,datastart,dataend
strFileDir=Fdir
strFileName=Swj
ObjAllPath=""
IfRight(strFileDir,1)""ThenstrFileDir=strFileDir&""
ObjAllPath=strFileDir&Objwj
IfCheckFile(ObjAllPath)ThenDelFile(ObjAllPath)
formsize=Request.TotalBytes
if(formsize<=(RetSize*1024*1024))then
Formdata=Request.BinaryRead(formsize)
Pos_ts=LenB(getByteString(Chr(13)&Chr(10)&Chr(13)&Chr(10)))
Pos_b=InstrB(Formdata,getByteString(Chr(13)&Chr(10)&Chr(13)&Chr(10)))+Pos_ts
nFormdata=MidB(Formdata,Pos_b)
Pos_ts=InstrB(nFormdata,getByteString(Chr(13)&Chr(10)&"--"))
nnFormdata=MidB(nFormdata,Pos_ts)
Pos_e=LenB(Formdata)-LenB(nnFormdata)-Pos_b+1
datastart=Pos_b
dataend=Pos_e
setoUpStream=Server.CreateObject("adodb.stream")
oUpStream.Type=1
oUpStream.Mode=3
oUpStream.Open
setoStream=Server.CreateObject("adodb.stream")
oStream.Type=1
oStream.Mode=3
oStream.Open
oUpStream.WriteFormdata
oUpStream.position=datastart-1
oUpStream.copytooStream,dataend
oStream.SaveToFileObjAllPath,2
oStream.Close
setoStream=nothing
UpFsRn=True
EndIf
Endfunction
**************************************************
函数ID：0019[过滤HTML剧本]
函数名：FilterJS
作用：过滤HTML剧本
参数：strHTML----被检测的HTML字串
前往值：前往过滤后的HTML
**************************************************
FunctionFilterJS(ByValstrHTML)
DimobjReg,strContent
IfIsNull(strHTML)ORstrHTML=""ThenExitFunction
SetobjReg=NewRegExp
objReg.IgnoreCase=True
objReg.Global=True
objReg.Pattern="(&#)"
strContent=objReg.Replace(strHTML,"")
objReg.Pattern="(function|meta|value|window.|script|js:|about:|file:|Document.|vbs:|frame|cookie)"
strContent=objReg.Replace(strContent,"")
objReg.Pattern="(on(finish|mouse|Exit=|error|click|key|load|focus|Blur))"
strContent=objReg.Replace(strContent,"")
FilterJS=strContent
strContent=""
SetobjReg=Nothing
EndFunction
**************************************************
函数ID：0020[创立MsAccess数据库]
函数名：CrDb_MsAccess
作用：创立MsAccess数据库
参数：DbPath----方针目次信息
参数：DbFileName----方针库文件称号
参数：DbUpwd----方针库翻开暗码
前往值：创建乐成前往True不然False
**************************************************
PublicFunctionCrDb_MsAccess(ByValDbPath,ByValDbFileName,ByValDbUpwd)
CrDb_MsAccess=False
OnErrorGoTo0
OnErrorResumeNext
DIMfxztxt,fu_fu_db_str,fu_db_str
fxztxt=Chr(60)&"%Response.end()%"&Chr(62)
IfRight(DbPath,1)""ThenDbPath=DbPath&""
fu_fu_db_str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&DbPath&"temp.mdb;"
fu_db_str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&DbPath&DbFileName&";JetOLEDB:DatabasePassword="&DbUpwd&";"
Setfu_Ca=Server.CreateObject("ADOX.Catalog")
fu_Ca.Createfu_fu_db_str
Setfu_Ca=Nothing
Setfu_Je=Server.CreateObject("JRO.JetEngine")
fu_Je.CompactDatabasefu_fu_db_str,fu_db_str
Setfu_fso=CreateObject("Scripting.FileSystemObject")
fu_fso.DeleteFile(DbPath&"temp.mdb")
Setfu_Je=Nothing
Setfu_fso=Nothing
setfu_Conn=server.createobject("ADODB.Connection")
setfu_Rs=server.createobject("ADODB.Recordset")
fu_Conn.openfu_db_str
fu_Sql_Str="CREATETABLE[0]([0]TextDEFAULTNotxtNOTNULL,[11]intIDENTITY(1,1)NOTNULLPRIMARYKEY)"
fu_Conn.Execute(fu_Sql_Str)
fu_Sql_Str="Select*From[0]"
fu_Rs.openfu_Sql_Str,fu_Conn,1,3
fu_Rs.addnew
fu_Rs("0")=fxztxt
fu_Rs.update
fu_Rs.Close
fu_Conn.Close
Setfu_Rs=Nothing
Setfu_Conn=Nothing
IfErr.Number=0Then
CrDb_MsAccess=True
EndIf
OnErrorGoTo0
Endfunction
**************************************************
函数ID：0021[创立MsSQLServer数据库]
函数名：CrDb_MsSQLServer
作用：创立MsSQLServer数据库
参数：DbIp----数据库地点IP或主机称号
参数：DbSamc----数据库超管用户称号
参数：DbSapwd----数据库超管用户口令
参数：DbName----新建数据库称号
参数：DbUpmc----新建数据库所属用户称号
参数：DbUpwd----新建数据库所属用户暗码
前往值：创建乐成前往True不然False
**************************************************
PublicFunctionCrDb_MsSQLServer(ByValDbIp,ByValDbSamc,ByValDbSapwd,ByValDbName,ByValDbUpmc,ByValDbUpwd)
CrDb_MsSQLServer=False
OnErrorGoTo0
OnErrorResumeNext
DIMfu_Sa_Str,fu_Ua_Str,fu_Conn,fu_Rs,fu_Sql_Str,fxztxt
fxztxt=Chr(60)&"%Response.end()%"&Chr(62)
fu_Sa_Str="DRIVER=SQLServer;UID="&DbSamc&";DATABASE=master;SERVER="&DbIp&";PWD="&DbSapwd&";"
fu_Ua_Str="DRIVER=SQLServer;UID="&DbUpmc&";DATABASE="&DbName&";SERVER="&DbIp&";PWD="&DbUpwd&";"
Setfu_Conn=Server.CreateObject("ADODB.Connection")
fu_Conn.Openfu_Sa_Str
fu_Conn.Execute"CREATEDATABASE"&DbName
fu_Conn.Close
fu_DB_Conn_Str="DRIVER=SQLServer;UID="&DbSamc&";DATABASE="&DbName&";SERVER="&DbIp&";PWD="&DbSapwd&";"
fu_Conn.Openfu_DB_Conn_Str
fu_Sql_Str="EXECsp_addlogin"&DbUpmc&","&DbUpwd&","&DbName&""
fu_Conn.Executefu_Sql_Str
fu_Sql_Str="EXECsp_grantdbaccess"&DbUpmc&""
fu_Conn.Executefu_Sql_Str
fu_Sql_Str="EXECsp_addrolememberdb_owner,"&DbUpmc&""
fu_Conn.Executefu_Sql_Str
fu_Sql_Str="EXECsp_defaultdb"&DbUpmc&","&DbName
fu_Conn.Executefu_Sql_Str
fu_Conn.Close
fu_Conn.openfu_Ua_Str
fu_Sql_Str="CREATETABLE[0]([0]TextDEFAULT(Notxt)NOTNULL,[11]intIDENTITY(1,1)NOTNULLPRIMARYKEY)"
fu_Conn.Executefu_Sql_Str
Setfu_Rs=server.createobject("ADODB.Recordset")
fu_Sql_Str="Select*From[0]"
fu_Rs.openfu_Sql_Str,fu_Conn,1,3
fu_Rs.addnew
fu_Rs("0")=fxztxt
fu_Rs.update
fu_Rs.Close
fu_Conn.Close
Setfu_Rs=Nothing
Setfu_Conn=Nothing
IfErr.Number=0Then
CrDb_MsSQLServer=True
EndIf
OnErrorGoTo0
Endfunction
**************************************************
函数ID：0022[经由过程JMAIL发信]
函数名：MSMail
作用：经由过程JMAIL发信
参数：subject----邮件的题目
参数：mailaddress----邮件服务器地点
参数：senderName----发件人称号
参数：email----收件人E-MAIL地点
参数：content----邮件内容
参数：fromer----发件人E-MAIL地点
参数：serEmailUser----邮件服务器权限用户名
参数：serEmailPass----邮件服务器权限用户暗码
前往值：发送乐成前往True不然False
示例：MSMail("test","smtp.163.com","mzy","mzymcm@yahoo.com.cn","test","mzymcm@163.com","mzymcm","abcmzy1029abc")
**************************************************
PublicFunctionMSMail(ByValsubject,ByValmailaddress,ByValsenderName,ByValemail,ByValcontent,ByValfromer,ByValserEmailUser,ByValserEmailPass)
dimJmailMsg
MSMail=False
setJmailMsg=server.createobject("jmail.message")
JmailMsg.mailserverusername=serEmailUser
JmailMsg.mailserverpassword=serEmailPass
JmailMsg.addrecipientemail
JmailMsg.from=fromer
JmailMsg.fromname=senderName
JmailMsg.charset="gb2312"
JmailMsg.logging=true
JmailMsg.silent=true
JmailMsg.subject=Subject
JmailMsg.body=Server.HTMLEncode(content)
JmailMsg.htmlbody=content
ifnotJmailMsg.send(mailaddress)then
MSMail=False
else
MSMail=True
endif
JmailMsg.close
setJmailMsg=nothing
Endfunction
**************************************************
函数ID：0023[测试组件是不是安装]
函数名：IsObjInstalled
作用：测试组件是不是安装
参数：strClassString----组件称号或标识字串
前往值：测试乐成前往True不然False
示例：IsObjInstalled("JMAIL.Message")
**************************************************
PublicFunctionIsObjInstalled(ByValstrClassString)
OnErrorResumeNext
IsObjInstalled=False
Err=0
DimxTestObj
SetxTestObj=Server.CreateObject(strClassString)
If0=ErrThenIsObjInstalled=True
SetxTestObj=Nothing
Err=0
EndFunction
**************************************************
函数名：GetObjVer
作用：前往组件版本信息
参数：strClassString----组件称号或标识字串
前往值：前往组件版本信息字串
示例：GetObjVer("JMAIL.Message")
**************************************************
PublicFunctionGetObjVer(ByValstrClassString)
OnErrorResumeNext
GetObjVer=""
Err=0
DimxTestObj
SetxTestObj=Server.CreateObject(strClassString)
If0=ErrThenGetObjVer=xtestobj.version
SetxTestObj=Nothing
Err=0
EndFunction
**************************************************
函数名：ListObjInfo
作用：列出组件安装信息
参数：----
前往值：列出组件安装信息
示例：ListObjInfo()
**************************************************
PublicFunctionListObjInfo()
DimTempBs,TempBsXX,TempObjType,tmpObjs
TempBs="×"
TempBsXX=""
TempObjType=""
tmpObjs=""
tmpObjs=tmpObjs&"JMail.Message|"
tmpObjs=tmpObjs&"ADODB.Stream|"
tmpObjs=tmpObjs&"MSWC.AdRotator|"
tmpObjs=tmpObjs&"MSWC.BrowserType|"
tmpObjs=tmpObjs&"MSWC.NextLink|"
tmpObjs=tmpObjs&"MSWC.Tools|"
tmpObjs=tmpObjs&"MSWC.Status|"
tmpObjs=tmpObjs&"MSWC.Counters|"
tmpObjs=tmpObjs&"MSWC.PermissionChecker|"
tmpObjs=tmpObjs&"Scripting.FileSystemObject|"
tmpObjs=tmpObjs&"adodb.connection|"
tmpObjs=tmpObjs&"SoftArtisans.FileUp|"
tmpObjs=tmpObjs&"SoftArtisans.FileManager|"
tmpObjs=tmpObjs&"CDONTS.NewMail|"
tmpObjs=tmpObjs&"Persits.MailSender|"
tmpObjs=tmpObjs&"LyfUpload.UploadFile|"
tmpObjs=tmpObjs&"Persits.Upload.1|"
tmpObjs=tmpObjs&"w3.upload|"
tmpObjs=Split(tmpObjs,"|")
Response.write"<center><tableborder=1bordercolor=#000000cellspacing=0cellpadding=0style=font-size:9pt;"">宋体><tr><tdwidth=33%valign=middlealign=centerstyle=border-left:1solid#808080;border-right:1solid#FFFFFF;border-top:1solid#FFFFFF;border-bottom:1solid#808080;padding-left:2;padding-right:2;padding-top:1;padding-bottom:1>组件标识</td><tdwidth=33%valign=middlealign=centerstyle=border-left:1solid#808080;border-right:1solid#FFFFFF;border-top:1solid#FFFFFF;border-bottom:1solid#808080;padding-left:2;padding-right:2;padding-top:1;padding-bottom:1>√|×</td><tdwidth=34%valign=middlealign=centerstyle=border-left:1solid#808080;border-right:1solid#FFFFFF;border-top:1solid#FFFFFF;border-bottom:1solid#808080;padding-left:2;padding-right:2;padding-top:1;padding-bottom:1>版本</td></tr>"&vbCrlf
Fori=LBound(tmpObjs)ToUBound(tmpObjs)
IfTrim(tmpObjs(i))""Then
IfIsObjInstalled(tmpObjs(i))Then
TempObjType=tmpObjs(i)
TempBs="√"
TempBsXX=GetObjVer(tmpObjs(i))
IfTempBsXX=""ThenTempBsXX=""
Else
TempObjType="<fontcolor=#800000>"&tmpObjs(i)&"</font>"
TempBs="<fontcolor=#800000>×</font>"
TempBsXX=""
EndIf
Response.write"<tr>"&vbCrlf
Response.write"<tdvalign=middlestyle=border-left:1solid#808080;border-right:1solid#FFFFFF;border-top:1solid#FFFFFF;border-bottom:1solid#808080;padding-left:2;padding-right:2;padding-top:1;padding-bottom:1>"&TempObjType&"</td>"&vbCrlf
Response.write"<tdvalign=middlealign=centerstyle=border-left:1solid#808080;border-right:1solid#FFFFFF;border-top:1solid#FFFFFF;border-bottom:1solid#808080;padding-left:2;padding-right:2;padding-top:1;padding-bottom:1>"&TempBs&"</td>"&vbCrlf
Response.write"<tdvalign=middlealign=centerstyle=border-left:1solid#808080;border-right:1solid#FFFFFF;border-top:1solid#FFFFFF;border-bottom:1solid#808080;padding-left:2;padding-right:2;padding-top:1;padding-bottom:1>"&TempBsXX&"</td>"&vbCrlf
Response.write"</tr>"&vbCrlf
EndIf
Next
Response.write"</table></center>"&vbCrlf
EndFunction
**************************************************
函数ID：0024[上传文件的窗口]
函数名：PosImageWin
作用：上传选择文件窗口，可主动提取文件名及范例
参数：PfUrlstr----处置二进制文件信息的URL地点
前往值：网页HTML文件
示例：库布局例子CREATETABLE[IMAGES]([ID]intIDENTITY(1,1)NOTNULLPRIMARYKEY,[MC]varchar(50),[LX]varchar(20),[MEM]Text,[IMGS]image)
**************************************************
PublicFunctionPosImageWin(ByValPfUrlstr)
PosImageWin=""
PosImageWin=PosImageWin&"<center><tableborder=0width=0cellspacing=0cellpadding=0style=font-size:9pt>"&vbCrlf
PosImageWin=PosImageWin&"<SCRIPTLANGUAGE=javascript>"&vbCrlf
PosImageWin=PosImageWin&"functionckfilelx(){"&vbCrlf
PosImageWin=PosImageWin&"tempwjm=POFile.ImageFs.value;"&vbCrlf
PosImageWin=PosImageWin&"fgwjm=tempwjm.split(.);"&vbCrlf
PosImageWin=PosImageWin&"newwjm=fgwjm.reverse();"&vbCrlf
PosImageWin=PosImageWin&"POMem.ImageType.value=newwjm[0].toUpperCase();"&vbCrlf
PosImageWin=PosImageWin&"tempwjm=newwjm[1].toUpperCase();"&vbCrlf
PosImageWin=PosImageWin&"fgwjm=tempwjm.split();"&vbCrlf
PosImageWin=PosImageWin&"newwjm=fgwjm.reverse();"&vbCrlf
PosImageWin=PosImageWin&"POMem.ImageName.value=newwjm[0].toUpperCase();"&vbCrlf
PosImageWin=PosImageWin&"POMem.ImageReadme.value=newwjm[0].toUpperCase();"&vbCrlf
PosImageWin=PosImageWin&"}"&vbCrlf
PosImageWin=PosImageWin&"functionReedit(){POFile.reset();POMem.reset();}"&vbCrlf
PosImageWin=PosImageWin&"functionPostDo(){if(POFile.ImageFs.value==){alert(没有选择文件哟！);}else{bc.innerHTML=正在上传，请稍后...;POFile.action=POFile.action+&mc=+POMem.ImageName.value+&lx=+POMem.ImageType.value+&mem=+POMem.ImageReadme.value;bc.style.visibility=visible;ReEd.disabled=true;PoSe.disabled=true;POFile.submit();POFile.ImageFs.disabled=true;}}"&vbCrlf
PosImageWin=PosImageWin&"</SCRIPT>"&vbCrlf
PosImageWin=PosImageWin&"<tr><formmethod=POSTname=POFileenctype=multipart/form-dataACTION="&PfUrlstr&"target=tempa><tdwidth=100%valign=middle>"&vbCrlf
PosImageWin=PosImageWin&"选择文件：<inputtype=filename=ImageFs>"&vbCrlf
PosImageWin=PosImageWin&"</td></form></tr>"&vbCrlf
PosImageWin=PosImageWin&"<tr><formmethod=POSTname=POMem><tdwidth=100%valign=middle>"&vbCrlf
PosImageWin=PosImageWin&"文件ID号：<inputtype=textname=ImageIDReadOnlystyle=font-size:9pt;width:300;><br>"&vbCrlf
PosImageWin=PosImageWin&"文件称号：<inputtype=textname=ImageNamestyle=font-size:9pt;width:300;><br>"&vbCrlf
PosImageWin=PosImageWin&"文件范例：<inputtype=textname=ImageTypeReadOnlystyle=font-size:9pt;width:300;><br>"&vbCrlf
PosImageWin=PosImageWin&"文件先容：<textarearows=8name=ImageReadmecols=20style=font-size:9pt;width:300;>还没有</textarea>"&vbCrlf
PosImageWin=PosImageWin&"</td></form></tr>"&vbCrlf
PosImageWin=PosImageWin&"<tr><tdwidth=100%valign=middlealign=center>"&vbCrlf
PosImageWin=PosImageWin&"<inputtype=buttonvalue=重置name=ReEd>"&vbCrlf
PosImageWin=PosImageWin&"</td></tr></table></center><divid=bcname=bcstyle=position:absolute;left:45%;top:40%;z-index:0;background-color:#EAEAEA;visibility:hidden;valign=middlealign=center></div>"&vbCrlf
PosImageWin=PosImageWin&"<iframesrc=ID=tempaNAME=tempaframeborder=0width=0height=0style=width:0;Height:0;>"&vbCrlf
EndFunction
**************************************************
函数ID：0025[获得数据库链接字串]
函数名：GetConnStr
作用：获得数据库链接字串，能天生MsAccess和MsSqlServer链接串
参数：Lx----0是MsAccess,1是MsSqlServer
参数：Dbiporpath----数据库IP或路径
参数：Dbmc----数据库称号
参数：Dbuid----数据库用户称号
参数：Dbupwd----数据库用户暗码
前往值：链接字串
示例：http://www.ckuyun.com/
**************************************************
PublicFunctionGetConnStr(ByValLx,ByValDbiporpath,ByValDbmc,ByValDbuid,ByValDbupwd)
GetConnStr=""
IfLx=0Then
IfRight(Dbiporpath,1)""ThenDbiporpath=Dbiporpath&""
GetConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Dbiporpath&Dbmc&";JetOLEDB:DatabasePassword="&Dbupwd&";"
EndIf
IfLx=1Then
GetConnStr="DRIVER=SQLServer;UID="&Dbuid&";DATABASE="&Dbmc&";SERVER="&Dbiporpath&";PWD="&Dbupwd&";"
EndIf
EndFunction
**************************************************
函数ID：0026[获得multipart/form-data情势上传文件]
函数名：GetImageData
作用：获得multipart/form-data情势上传文件
参数：MaxSize----上传的限止巨细,单元：M(兆)
前往值：二进制数据
示例：
**************************************************
PublicFunctionGetImageData(ByValMaxSize)
GetImageData=""
DIMformsize,Formdata,bncrlf,divider,datastart,dataend,mydata
formsize=Request.TotalBytes
if(formsize<=(MaxSize*1024*1024))then
Formdata=Request.BinaryRead(formsize)
Pos_ts=LenB(getByteString(Chr(13)&Chr(10)&Chr(13)&Chr(10)))
Pos_b=InstrB(Formdata,getByteString(Chr(13)&Chr(10)&Chr(13)&Chr(10)))+Pos_ts
nFormdata=MidB(Formdata,Pos_b)
Pos_ts=InstrB(nFormdata,getByteString(Chr(13)&Chr(10)&"--"))
nnFormdata=MidB(nFormdata,Pos_ts)
Pos_e=LenB(Formdata)-LenB(nnFormdata)-Pos_b+1
datastart=Pos_b
dataend=Pos_e
mydata=midb(Formdata,datastart,dataend)
EndIf
GetImageData=mydata
EndFunction
将字串转为二进制串
FunctiongetByteString(StringStr)
Fori=1toLen(StringStr)
char=Mid(StringStr,i,1)
getByteString=getByteString&chrB(AscB(char))
Next
Endfunction
**************************************************
函数ID：0027[保留或检察上传到数据库中的数据，带挪用上传窗口]
函数名：GoImgToDb
作用：保留或检察上传到数据库中的数据，带挪用上传窗口
参数：PPLX----实行范例(空为保留，ID号为检察该ID的文件)
参数：PUrl----主实行程序的URL部分
参数：ConnStr----上传文件的数据库链接字串
参数：ImagTbname----文件保留的数据表称号
参数：Did----文件ID字段名
参数：Dmc----文件称号字段名
参数：Dlx----文件范例字段名
参数：Dmem----文件申明字段名
参数：Ddata----文件的二进制数据的字段名
参数：MaxSize----上传的限止巨细,单元：M(兆)
参数：IDLX----标识ID字段的范例(0字符型1数值(非自增量型)2数值型(自增量型))
前往值：乐成保留的JAVASCRIPT注在非主动增量情形下标识字段长度应凌驾20个字符
示例：GoImgToDb("17","http://127.0.0.1/function.asp",GetConnStr(1,"127.0.0.1","temp","sa","mzy1029"),"img","id","mc","lx","mem","data",20)
示例：GoImgToDb("","http://127.0.0.1/function.asp",GetConnStr(1,"127.0.0.1","temp","sa","mzy1029"),"img","id","mc","lx","mem","data",20)
**************************************************
PublicFunctionGoImgToDb(ByValPPLX,ByValPUrl,ByValConnStr,ByValImagTbname,ByValDid,ByValDmc,ByValDlx,ByValDmem,ByValDdata,ByValMaxSize,ByValIDLX)
DIMPjobs,Pjurl
tempimg_conn_str=ConnStr
Setfu_Conn=server.createobject("ADODB.Connection")
Setfu_Rs=server.createobject("ADODB.Recordset")
fu_Conn.opentempimg_conn_str
IfJCID(PPLX)=0Then
Pjobs=Request("img")
IfInStr(PUrl,"?")>0Then
Pjurl=PUrl&"&img=sav"
Else
Pjurl=PUrl&"?img=sav"
EndIf
IfPjobs=""thenResponse.writePosImageWin(Pjurl)
IfPjobs="sav"Then
Sql_Str="SELECT"&Did&","&Dmc&","&Dlx&","&Dmem&","&Ddata&"FROM"&ImagTbname
fu_Rs.openSql_Str,fu_Conn,3,3
fu_Rs.addnew
IfIDLX<2Then
fu_Rs(Did)=MakeTheID()
EndIf
fu_Rs(Dmc)=Request("mc")
fu_Rs(Dlx)=Request("lx")
fu_Rs(Dmem)=Request("mem")
fu_Rs(Ddata).AppendChunkGetImageData(JCID(MaxSize))
fu_Rs.update
fu_Rs.Close
fu_Rs.openSql_Str,fu_Conn,3,3
fu_Rs.MoveLast
Response.write"<SCRIPTLANGUAGE=JAVASCRIPT>"&vbCrlf
Response.write"parent.POMem.ImageID.value="&fu_Rs(Did)&";"&vbCrlf
Response.write"parent.bc.innerHTML=已乐成保留数据!;"
Response.write"</SCRIPT>"&vbCrlf
EndIf
Else
IfIDLX>0Then
Sql_Str="SELECT"&Did&","&Dmc&","&Dlx&","&Dmem&","&Ddata&"FROM"&ImagTbname&"WHERE("&Did&"="&PPLX&")"
Else
Sql_Str="SELECT"&Did&","&Dmc&","&Dlx&","&Dmem&","&Ddata&"FROM"&ImagTbname&"WHERE("&Did&"="&PPLX&")"
EndIf
fu_Rs.openSql_Str,fu_Conn,1,1
Iffu_Rs.RecordCount>0Then
tempaa=Trim(fu_Rs(Dlx))
Response.Clear
Response.Expires=-9999
Response.AddHeader"pragma","no-cache"
Response.AddHeader"cache-ctrol","no-cache"
Response.Buffer=TRUE
Response.AddHeader"Content-Disposition:","attachment;filename="&fu_Rs(Dmc)&"."&tempaa
Response.ContentType="application/"&Trim(fu_Rs(Dlx))
Response.Flush
Response.BinaryWritefu_Rs(Ddata)
Response.End
EndIf
EndIf
fu_Rs.Close
fu_Conn.close
Setfu_Rs=Nothing
Setfu_Conn=Nothing
EndFunction
**************************************************
函数ID：0028[获得图象的范例|宽|高]
函数名：GetImageDx
作用：获得图象的范例|宽|高
参数：filepath----文件路径及文件定名
前往值："范例|宽|高"
**************************************************
PublicFunctionGetImageDx(ByValfilepath)
DIMTempsm,NBxx,WJXX(3)
SETTempsm=Server.CreateObject("ADODB.Stream")
Tempsm.Mode=3
Tempsm.Type=1
Tempsm.Open
Tempsm.LoadFromFilefilepath
NBxx=Hex(BinVal(Tempsm.Read(3)))
WJXX(0)=NBxx
WJXX(1)="0"
WJXX(2)="0"
IfNBxx="464947"Then
WJXX(0)="GIF"
Tempsm.Read(3)
WJXX(1)=BinVal(Tempsm.Read(2))
WJXX(2)=BinVal(Tempsm.Read(2))
EndIf
IfNBxx="FFD8FF"Then
WJXX(0)="JPG"
do
do:p1=binVal(Tempsm.Read(1)):loopwhilep1=255andnotTempsm.EOS
ifp1>191andp1<196thenexitdoelseTempsm.Read(binval2(Tempsm.Read(2))-2)
do:p1=binVal(Tempsm.Read(1)):loopwhilep1<255andnotTempsm.EOS
loopwhiletrue
Tempsm.Read(3)
WJXX(2)=binval2(Tempsm.Read(2))
WJXX(1)=binval2(Tempsm.Read(2))
EndIf
IfMid(NBxx,3)="4D42"Then
Tempsm.Read(15)
WJXX(0)="BMP"
WJXX(1)=binval(Tempsm.Read(4))
WJXX(2)=binval(Tempsm.Read(4))
EndIf
IfNBxx="4E5089"Then
WJXX(0)="PNG"
Tempsm.Read(15)
WJXX(1)=BinVal2(Tempsm.Read(2))
Tempsm.Read(2)
WJXX(2)=BinVal2(Tempsm.Read(2))
EndIf
IfNBxx="535743"Then
WJXX(0)="SWF"
Tempsm.Read(5)
binData=Tempsm.Read(1)
sConv=Num2Str(ascb(binData),2,8)
nBits=Str2Num(left(sConv,5),2)
sConv=mid(sConv,6)
while(len(sConv)<nBits*4)
binData=Tempsm.Read(1)
sConv=sConv&Num2Str(ascb(binData),2,8)
wend
WJXX(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)
WJXX(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)
EndIf
Tempsm.Close
SETTempsm=nothing
GetImageDx=WJXX(0)&"|"&WJXX(1)&"|"&WJXX(2)
EndFunction
FunctionBinVal(bin)
dimret
ret=0
fori=lenb(bin)to1step-1
ret=ret*256+ascb(midb(bin,i,1))
next
BinVal=ret
EndFunction
FunctionBinVal2(bin)
dimret
ret=0
fori=1tolenb(bin)
ret=ret*256+ascb(midb(bin,i,1))
next
BinVal2=ret
EndFunction
FunctionStr2Num(str,base)
dimret
ret=0
fori=1tolen(str)
ret=ret*base+cint(mid(str,i,1))
next
Str2Num=ret
EndFunction
FunctionNum2Str(num,base,lens)
dimret
ret=""
while(num>=base)
ret=(nummodbase)&ret
num=(num-nummodbase)/base
wend
Num2Str=right(string(lens,"0")&num&ret,lens)
EndFunction
**************************************************
函数ID：0029[将当地文件举行二进制剖析，并保留到服务器的指定目次下]
函数名：TxtBinInfo
作用：将当地文件举行二进制剖析，并保留到服务器的指定目次下
参数：Filestr----被剖析文件路径及文件定名
参数：WebSvFile----剖析信息保留文件路径及文件定名
前往值：乐成前往True不然False
示例：TempSj=Request.Form("Tfile")
示例：IfTrim(TempSj)""ThenCALLTxtBinInfo(TempSj,"d:aa.txt")
示例：Response.write"<formmethod=POSTaction=test.asp><inputtype=filename=Tfile><inputtype=submitvalue=提交name=B1></form>"
**************************************************
PublicFunctionTxtBinInfo(ByValFilestr,ByValWebSvFile)
TxtBinInfo=False
DIMWtempxx
Wtempxx=""
SETTempsm=Server.CreateObject("ADODB.Stream")
Tempsm.Mode=3
Tempsm.Type=1
Tempsm.Open
Tempsm.LoadFromFile(Filestr)
tempRedImg=Tempsm.Read
fori=lenb(tempRedImg)to1step-1
Wtempxx=Wtempxx&"地点号："&i&"地点十六进制："&Hex(ascb(midb(tempRedImg,i,1)))&"十进制："&ascb(midb(tempRedImg,i,1))&vbCrlf
next
Wtempxx=Wtempxx&vbCrlf&"巨细："&lenb(tempRedImg)&"字节该文件称号为："&Filestr
SetM_fso=CreateObject("Scripting.FileSystemObject")
SetFnameN=M_fso.OpenTextFile(WebSvFile,2,True)
FnameN.WriteWtempxx
FnameN.Close
SetM_fso=Nothing
Tempsm.Close
SETTempsm=nothing
TxtBinInfo=True
EndFunction
**************************************************
函数ID：0030[将当地数据表或库上传并导进到服务器数据库的表中]
函数名：ReadCdbToServ
作用：将当地数据表或库上传并导进到服务器数据库的表中
参数：CdbFileUp----被上传的库或表文件路径及文件名
参数：SdbConnStr----服务器数据库链接字串
参数：SdbTbname----服务器将翻开的表名
参数：FildStrArr----导进的数据字段串(各字段用","离隔)
前往值：乐成前往True不然False
注可导进的文件范例有(0:Excel1:Access2:Text3:DBF/FoxPro)
注：Excel的表为Sheet称号，文本及DBF/FoxPro的表名为数据文件的全名，如aa.txt或aa.dbf
注：Text文本数据表是以","为分开的格局，重点：被导进的数据库只能包括一个表，而且导进的字段应和服务器数据库的表相分歧
示例：CALLReadCdbToServ(TempSj,"DRIVER=SQLServer;UID=sa;DATABASE=temp;SERVER=127.0.0.1;PWD=mzy1029;","img","mc,lx,mem")
示例：Response.write"<formmethod=POSTaction=test.aspenctype=multipart/form-data><inputtype=filename=Tfile><inputtype=submitvalue=提交name=B1></form>"
**************************************************
PublicFunctionReadCdbToServ(ByValCdbFileUp,ByValSdbConnStr,ByValSdbTbname,ByValFildStrArr)
ReadCdbToServ=False
DimMbDir,Mbwjmc,aryTemp,VrCdb_Conn_Str,ofu_Conn,ofu_Rs,sfu_Conn,sfu_Rs,ofu_sql_str,sfu_sql_str,oaryTemp,TpTrs,Gtlx,CdbTbname
VrCdb_Conn_Str=""
MbDir=Readsyspath(1)
IfRight(MbDir,1)""ThenMbDir=MbDir&""
Mbwjmc=CdbFileUp
aryTemp=Split(Mbwjmc,"")
Mbwjmc=aryTemp(UBound(aryTemp))
aryTemp=Split(Mbwjmc,".")
Gtlx=UCase(aryTemp(UBound(aryTemp)))
IfUpFsRn(100,MbDir,"temp."&Gtlx)Then
IfGtlx="XLS"ThenVrCdb_Conn_Str="Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties=Excel8.0;DataSource="&MbDir&"temp."&Gtlx&";"Excel[Tbname$]
IfGtlx="MDB"ThenVrCdb_Conn_Str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&MbDir&"temp."&Gtlx&";JetOLEDB:DatabasePassword=;"Access
IfGtlx="TXT"ThenVrCdb_Conn_Str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&MbDir&";ExtendedProperties=text;HDR=Yes;FMT=Delimited"Text(,支解)
IfGtlx="DBF"ThenVrCdb_Conn_Str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&MbDir&";ExtendedProperties=dBASEIV;UserID=Admin;Password="优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

掌握asp的特性而且一定要知道为什么。

仓酷云

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。