您所在的位置： &
利用ASP制作EXECL报表方法(2)
利用ASP制作EXECL报表方法(2)
&html&&head&&title&Excel Export Demo&/title&&/head&&body&&%if(Request.Form("ReturnAS") = "CSV") thenCreateCSVFile()else if(Request.Form("ReturnAS") = "Excel") thenCreateXlsFile() else if(Request.Form("ReturnAS") = "HTML") thenGenHTML()else if(Request.Form("ReturnAS") = "Content") thenGenHTML() end ifend ifend ifend ifSet oRS = NothingSet oConn = Nothing Response.Flush%&&/body&&/html&&SCRIPT LANGUAGE=vbscript RUNAT=Server&Function BuildSQL()dim strSQL dim strTempstrTemp = ""strSQL = "select year, region, sales_amt from sales"if(Request.Form("Year") && "ALL") thenstrTemp = " where Year = "strTemp = strTemp & Request.Form("Year")end ifif(Request.Form("Region") && "ALL") thenif(Len(strTemp) & 0) thenstrTemp = strTemp & " and Region = "elsestrTemp = strSTL & " where Region = "end ifstrTemp = strTemp & "'"strTemp = strTemp & Request.Form("Region")strTemp = strTemp & "'"end if
BuildSQL = strSQL & strTempEnd Function
Function GenFileName()dim fnamefname = "File"systime=now()fname= fname & cstr(year(systime)) & cstr(month(systime)) & cstr(day(systime))fname= fname & cstr(hour(systime)) & cstr(minute(systime)) & cstr(second(systime))GenFileName = fnameEnd Function
Function GenHTML()Response.Write("&DIV ALIGN=center&&FONT SIZE=+1&Sales Reporting&/FONT&&/DIV&")Response.Write("&TABLE WIDTH=100% BORDER=1 CELLSPACING=1 CELLPADDING=1&")Response.Write("&TR&")Response.Write(" &TD&Year&/TD&")Response.Write(" &TD&Region&/TD&")Response.Write(" &TD&Sales&/TD&")Response.Write("&/TR&")if(oRS.BOF = True and oRS.EOF = True) thenResponse.Write("Database Empty")elseoRS.MoveFirstDo While Not oRS.EOFResponse.Write("&TR&")Response.Write("&TD&")Response.Write(oRS.Fields("Year").Value)Response.Write("&/TD&")Response.Write("&TD&")Response.Write(oRS.Fields("Region").Value)Response.Write("&/TD&")Response.Write("&TD&")Response.Write(oRS.Fields("Sales_Amt").Value)Response.Write("&/TD&")Response.Write("&/TR&")oRS.MoveNextLoopResponse.Write("&/TABLE&")End ifEnd Function
Function CreateCSVFile()
strFile = GenFileName() Set fs = Server.CreateObject("Scripting.FileSystemObject")Set a = fs.CreateTextFile(server.MapPath(".") & "" & strFile & ".csv",True)If Not oRS.EOF Thenstrtext = chr(34) & "Year" & chr(34) & ","strtext = strtext & chr(34) & "Region" & chr(34) & ","strtext = strtext & chr(34) & "Sales" & chr(34) & ","a.WriteLine(strtext)Do Until oRS.EOF For i = 0 To oRS.fields.Count-1strtext = chr(34) & oRS.fields(i) & chr(34) & ","a.Write(strtext)Nexta.Writeline()oRS.MoveNextLoopEnd Ifa.CloseSet fs=Nothing Response.Write("Click &A HRef=" & strFile & ".csv&Here&/A& to to get CSV file") End FunctionFunction CreateXlsFile()Dim xlWorkSheet ' Excel Worksheet objectDim xlApplication
关于&&的更多文章
PHP，一个嵌套的缩写名称，是英文超级文本预处理语言（PHP:Hyper
随着云计算、物联网、大数据、移动互联网的大发展，你应该知道这些。
讲师： 15人学习过讲师： 63人学习过讲师： 177人学习过
Java 8版本最大的改进就是Lambda表达式，其目的是使Ja
美国旧金山时间3月31日，在红木城Oracle公司总部，Ora
从2006年12月份Sun发布Java 6后，经过五年多的不懈努
本书的第1版获得过“2006年度全行业优秀畅销品种奖”。全书共15章，分别介绍了网管员职责和应具备的工作习惯、共享上网与访问控
51CTO旗下网站专注于程序设计语言和算法
脚本实现telnet检测指定机器端口的连通性
#!/bin/ksh
# shell script: checklink.sh
# function: auto check the link of server IP and PORT
# copyright by Li Jian.
#根据系统类型的不同，加载系统环境变量
if [ `uname` = "Linux" ]
PROFILE=.bash_profile
PROFILE=.profilefi
. $HOME/$PROFILE
#在脚本执行目录下创建日志文件 .log 和检测的最终结果文件.dat
resultfile=$PWD/checklink.dat
log_file=$PWD/checklink.log
#判断脚本执行的时候传递的参数个数是否正确，包括ip地址和端口号port两个参数
if [ $# -ne 2 ]
echo `date +"%Y.%m.%d %T"`"the parameter numbers are not correct,exit!" &&${log_file}
#读取传递的脚本参数
#判断两个参数是否为空
if [ -z $IP -o -z $port ]
echo `date +"%Y.%m.%d %T"`"the parameter should not be null,exit!" &&${log_file}
fi#通过Ping命令先检测指定的ip地址是否能连通，通过ping命令发送四个包(可以是发送另外的数量)，限制超时时间为3秒钟(也可以是其他值，具体要看能忍受多长时间的延迟)，主要根据丢包的比例来决定该ip地址是否能连通，比如ping 百度返回id结果如下：
zxin10@ubuntu:~/lijian$ ping www.baidu.com -c 4 -w 3
PING www.a.shifen.com (180.97.33.108) 56(84) bytes of data.
64 bytes from 180.97.33.108: icmp_seq=1 ttl=128 time=3.79 ms
64 bytes from 180.97.33.108: icmp_seq=2 ttl=128 time=5.32 ms
64 bytes from 180.97.33.108: icmp_seq=3 ttl=128 time=3.92 ms
--- www.a.shifen.com ping statistics ---
3 packets transmitted, 3 received, 0% packet loss, time 2004ms
RATE=`ping -c 4 -w 3 $IP | grep 'packet loss' | grep -v grep | awk -F',' '{print $3}' | awk -F'%' '{print $1}'`
#得到丢包的比例的数值
#RATE=`ping -c 4 -w 3 $IP | grep 'packet loss' | grep -v grep | cut -f3 -d, | cut -f1 -d%`
if [ $RATE -eq 100 ]
#这个值具体可以设置成75、50等等，这里设置成包全丢的情况下为不通
echo `date +"%Y.%m.%d %T"`" ping the $IP is not connected, FAILURE" &${log_file}
echo "FAILURE"
#全丢了说明该IP地址不通
telnet $IP $port&&@@@ 2&${resultfile} 1&&2
#否则telnet命令检测指定端口号PORT是否连通，如果可以连通，则立马quit退出连接，将连接结果和错误信息等都写入到结果文件中
RESULT=`cat ${resultfile} 2&/dev/null | grep "Connection closed by foreign host" | wc -l`
#匹配看结果文件中手否有这句话
echo `date +"%Y.%m.%d %T"`"the result of telnet is $RESULT" &${log_file}
if [ $RESULT -eq 1 ]
echo `date +"%Y.%m.%d %T"`" telnet the $IP and $port SUCCESS" &&${log_file}
#如果有的话就说明该端口是通的，返回结果字符串SUCCESS到文件并同时打印大屏幕上
echo "SUCCESS"
echo `date +"%Y.%m.%d %T"`" telnet the $IP and $port FAILURE" &&${log_file}
#否则就说明该端口是不通的，打印FAILURE
echo "FAILURE"
firm -f ${resultfile}
#删除结果文件，日志文件保留
以上就是脚本文件 checklink.sh，用于自动的检测指定机器端口的连通性。
运行的时候先赋予脚本执行权限：
chmod +x checklnk.sh
然后执行脚本并传递两个参数：第一个IP地址，第二个端口号，比如：
./checklink.sh 192.168.25.67 21
疑问：这里为何不直接调用telnet命令来检测指定IP地址和端口号，而需要先调用ping命令，再调用telnet命令呢？
解答：对于telnet命令，当传递的ip地址不同的时候，就会陷入长时间的等待中，因为telnet不可设置超时时间，所以需要先通过ping命令筛除掉那些IP地址不通的IP，再通过telnet判断指定的端口，若是端口不通的话telnet会立刻返回的，如果短靠谱是可以连通，则立即quit退出telnet登陆，根据返回结果判断是否连通。
这里还有一篇很好的帖子，通过C语言程序来设置和控制telnet 的返回超时时间的，很经典
http://bbs.csdn.net/topics/
没有更多推荐了，一台连接已配置的交换机，pc端如何查看该器交换机的登陆ip_百度知道
一台连接已配置的交换机，pc端如何查看该器交换机的登陆ip
PC在telnet登录交换前必须知道该交换机的ip，这个ip该如何找到
我有更好的答案
telnet管理交换机，一般就是telnet交换机的管理地址，一般就是vlan1的IP。如果按你所问：在console配置完后，其余的pc在其本机上查看与其连接交换机的ippc和交换机相连的IP就是你PC的网关。你直接telnet你网关就行了。如果交换机上配置了telnet远程登录，你输入用户密码就能进入了。
采纳率：50%
你这个PC登录上交换机应该是通过console口登录的，登录上交换机之后（使用Secure CRT或者其他工具），进入交换机的配置界面cisco交换机使用：show
ip interface brief可以产看交换机上配置的IP地址华为交换机使用：display ip interface brief 查看本机ip地址
是在console配置完后，其余的pc在其本机上查看与其连接交换机的ip，
本回答被网友采纳
运行“cmd”命令模式，输入：ipconfig /all
为您推荐：
其他类似问题
交换机的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何将excel表格中的网址全部设置成超链接_百度知道
如何将excel表格中的网址全部设置成超链接
excel表格中格子里面有很多网址，需要点一下就打开网页，但是一个一个设置超链接实在是......累，高手指教，谢谢
我有更好的答案
&&&&&&&&1、首先如果数据较少的话，只需要双击鼠标左键，回车，就会自动转换成超链接。&&&&&&&&2、如果上一步没有反应的话，单击文件-选项-校对-自动更正选项-键入时自动套用格式，选中Internet及网络路径替换为超链接，点击确定即可。&&&&&&&&3、如图表格所示，有大量网址，但是单击鼠标左键却不会打开网站，因为是文本格式。&&&&&&&&4、在表格中输入=HYPERLINK()，如图所示，在括号中输入网址所在的单元格，或者用鼠标点击选择即可。&&&&&&&&5、回车，如图所示，网址变成了超链接。&&&&&&&&6、鼠标左键拖动单元格向下填充，全部变成了超链接，现在鼠标左键单击就能打开网站了。
采纳率：88%
这个我都才回答过。。呵呵，先把第一行双击一下激活然后选中第一行下拉把结尾的网址在十字光标中选择仅填充格式！这样所有的网址都成了链接！
本回答被提问者和网友采纳
给你一个简单的方法：假如A1 为你的地址B1输入=HYPERLINK(A1)公式下拉即可 ，最后你隐藏A列即可
今天刚回答过一个类似的问题。参考：
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
excel表格的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。请使用浏览器的分享功能分享到微信等