<% set conn=server.createobject("adodb.connection") conn.open application("connstring") set rs=server.createobject("Adodb.recordset") sql="select * from xxloginteachers order by jsid desc" rs.open sql,conn do while not rs.eof msg=msg & rs("jsid") & chr(9) & rs("jsxm") & vbcrlf rs.movenext loo...[ 查看全文 ]
现在我们针对EXCEL举另外一个例子,大家都询问如何用ASP建立图表的问题,以下就是解决方案 First we set the type of script 首先设定脚本类型 <%@ LANGUAGE="VBSCRIPT" % Make the object, and set the object to an Excelsheet 建立Excelsheet对象 Dim MyExcelChart Set MyExcelChart = CreateObject("Excel.Sheet") ' show or dont show excel to user, TRUE or FALSE ...[ 查看全文 ]
很多时候我们需要将pdf文档转换为word文档,其实不需要四处寻找所谓的转换工具,只要安装adobe acrobat x pro ,既可以将当pdf文档导出为word或excel文档。 运行adobe acrobat x pro 打开需要处理的pdf文档,依次选择“save as/Microsoft word”随后会弹出“save as”对话框,这里除了指定另存为路径外,还可以打开“save as doc settings”对话框,在这里设置ocr的语言以及是否包括图片选项,确认之...[ 查看全文 ]
/* 豆腐制作 都是精品 http://www.asp888.net 豆腐技术站 如转载 请保留版权信息 */ test.aspx 是主运行程序 site.xml 是包含有数据的xml 文件 <%@ Import Namespace="System.IO" % <%@ Import Namespace="System.Data" % <html <script language="VB" runat="server" Sub Page_Load(Src As Object, E As EventArgs) 'http://www.asp888.net Dim DS As New DataSet Dim FS As FileStream Di...[ 查看全文 ]
How Do I Upload Files to the database with SAFileUp? Don't do it! Use SAFileUp to upload the files to the server but do not store the image in the database. Instead store the path to the file. Better yet if the images will sit in the same folder just store the actual file name. Uploading the entire image to the database wastes too many resources. You need to...[ 查看全文 ]
Before embarking on the inevitable—and not painless—migration to ASP+, it's best to know what compatibility issues you'll have to deal with by Chris Kinsman Microsoft is set to release an exciting upgrade to ASP later in 2000. This is a major upgrade unlike the minor changes from ASP 2.0 to 3.0. Unlike past upgrades, however, this one will not be p...[ 查看全文 ]
<% '***** BEGIN FUNCTION AREA ***** ' Formats a given 10 digit number into a nice looking phone number ' Example: given strNumber of 8005551212 you get (800) 555-1212 Function FormatPhoneNumber(strNumber) Dim strInput ' String to hold our entered number Dim strTemp ' Temporary string to hold our working text Dim strCurrentChar ' Var for storing each character for ev...[ 查看全文 ]