[code]’==============================’功能描述： 用正则除去HTML标记’不能保留<b><strong>等以及用户自定义的<和>’==============================Function RemoveHTMLTag(fString)        Dim re        Set re =&n...

<%setxlApp=Server.CreateObject("Excel.Application")xlApp.Visible=false'使服务端不出现Excel窗口.setmyWorkbook=xlApp.Workbooks.Add'建立一个worksheet.setmyWorksheet=myWorkbook.Worksheets(1)myWorksheet.Range("A1").Value='精彩春风通讯录'myWorksheet.Range("A1").Font.Size=12myWorksheet.Range("A1").Font.Bold=truemyWorksheet...

showimage.aspChangetheHTTPheaderResponse.ContentType="image/gif"Setcn=Server.CreateObject("ADODB.Connection")cn.Open"driver={SQLServer};server=.;UID=sa;PWD=;DATABASE=pubs"Setrs=cn.Execute("selectlogofrompub_infoWHEREpub_id='0736'")Response.BinaryWriters("logo")Response.End showimage.htm<html...

＜%FunctionGetEmploymentStatusListDimdd=Application(?EmploymentStatusList?)Ifd=??Then'FetchEmploymentStatusList函数从数据库取数据,返回一个数组d=FetchEmploymentStatusList()Application(?EmploymentStatusList?)=dEndIfGetEmploymentStatusList=dEndFunction%＞...