asp检测各服务器组件
怎么用asp判断下面的信息这里我是看到动态网的.
FSO文件读写 √ Jmail发送邮件支持 ×
CDONTS发送邮件支持 × AspEmail发送邮件支持 ×
无组件上传支持 √ AspUpload上传支持 ×
SA-FileUp上传支持 × DvFile-Up上传支持 ×
CreatePreviewImage生成预览图片 × AspJpeg生成预览图片 ×
SA-ImgWriter生成预览图片 × ADO(数据库访问)版本:2.8 √
<%
dim err0,err1,err2,err3,err4,err5,err6
err0=0
err1=0
err2=0
err3=0
err4=0
err5=0
err6=0
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<form method="POST" action="admin_addadminc.asp" name="form1" onsubmit="return false;">
<tr>
<td width="100%" bgcolor="#183789">
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" cellpadding=
相关文档：
最近做一个用asp做的网站后台的数据导出功能时,google,baidu了很多,但是多数都是转载,代码大概都一样,但是就是报错,最后有人说通过设置MIME类型和建立模板,最后整理,测试问题终于解决.关键的地方有以下几点:
1):MIME类型要设置正确,如要把DB中表(或表中指定字段)的数据导出成exel格式时,头部的MEMI类型的设置是:
<%
......
Excel导出函数
<%
Sub ExportToExcel
Response.ContentType = "application/vnd.ms-Excel"
Response.AddHeader "Content-Disposition", "attachment;Filename=Results.xls"
Response.Write ......
<!--#include file="../conn.asp"-->
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("users.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then ......
试验了好久，终于搞定了。
首先，必须有错误继续进行的声明On Error Resume Next
然后尝试简历jmail实例：
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
对实例做出判断，如果组件没有安装成功， ......
这段代码的功能是：将一个数组打乱顺序，显示出来，让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......
