asp½«tableÉú³ÉexcelÎļþxls
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request("action")=1 then
Response.ContentType="application/ms-excel"
Response.AddHeader "content-disposition","attachment;filename=www.xls"
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ÎÞ±êÌâÎĵµ</title>
<style type="text/css">
table {
border-top:1px solid #003399;
border-left:1px solid #003399;
}
td {
border-right:1px solid #003399;
border-bottom:1px solid #003399;
}
thead {
background-color:#000066;
font-weight:bold;
padding:5px;
color:#FFFFFF;
}
</style>
<script language="javascript">
function tableToExcel(){
location.href='?action=1';
}
</script>
</head>
<body>
<input type="button" value="µ¼³öÊý¾Ý" onclick="tableToExcel()" />
<%
ConnStr="..."
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
set rs = server.CreateObject("adodb.recordset")
rs.open "select top 10 * from [ÄãµÄ±íÃû]",conn,1,1
if not (rs.eof and rs.bof) then
column = rs.fields.count
response.Write("<table cellpadding='0' cellspacing='0'>")
response.Write("<thead><td>ÐòºÅ</td>")
for each f in rs.fields
response.Write("<td>" & f.name & "</td>")
next
response.Write("</thead>")
for j = 1 to rs.recordcount
if j > 5 then 'ÔÚµÚÎåÌõµÄʱºòÒþ²ØÊý¾Ý,¾¹ý²âÊÔÈç¹ûÊÇdisplayΪnoneµÄÊý¾ÝÊDz»»áµ¼³öÀ´µÄ
response.Write("<tr style='display:none'>")
else
response.Write("<tr>")
end if
response.Write("<td>" & j &
Ïà¹ØÎĵµ£º
<script language="javascript">
function CheckAll(form)
{ ///¶¨Ò庯Êýcheckall,²ÎÊýΪform
for (var i=0;i<form.elements.length;i++)
///Ñ»·,form.elements.lengthµÃµ½±íµ¥ÀïµÄ¿Ø¼þ¸öÊý
{
///°Ñ±íµ¥ÀïµÄÄÚÈÝÒÀÒÀ¸¶¸øeÕâ¸ö±äÁ¿
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = for ......
´´½¨Ö¸¶¨µÄÎļþÃû²¢·µ»ØÒ»¸ö TextStream ¶ÔÏ󣬿ÉÒÔʹÓÃÕâ¸ö¶ÔÏó¶ÔÎļþ½øÐжÁд¡£
object.CreateTextFile(filename[, overwrite[, unicode]])
²ÎÊý
object
±ØÑ¡ÏӦΪ FileSystemObject »ò Folder ¶ÔÏóµÄÃû³Æ¡£
filename
±ØÑ¡Ïî¡£Ö¸Ã÷ËùÒª´´½¨ÎļþµÄ×Ö·û´®±í´ïʽ¡£
overwrite
¿ÉÑ¡Ïî¡£Boolean Öµ£¬Ö¸Ã ......
¼òµ¥
ÔÚGlobal.asaÎļþÖмÓÈëÈçϵĴúÂ룺
Java´úÂë
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. 'µ±·þÎñÆ÷¿ªÆôʱ£¬ÉèÖÃÔÚÏßÓû§¼ÆÊýÆ÷Ϊ0
6. Application("ActiveUsers") = 0
7.
......
<!--#include file="zheboconn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>aspºÍmysql·ÖÒ³´úÂë</title>
<style type="text/css">
<!--
.STYLE3 {
fon ......
Èç¹ûÄãÒѾÓн϶àµÄÃæÏò¶ÔÏ󿪷¢¾Ñ飬Ìø¹ýÒÔÏÂÕâÁ½²½£º
µÚÒ»²½¡¡ÕÆÎÕÒ»ÃÅ¡£NETÃæÏò¶ÔÏóÓïÑÔ£¬C#»òVB.NET ÎÒÇ¿ÁÒ·´¶ÔÔÚûϵͳѧ¹ýÒ»ÃÅÃæÏò¶ÔÏó£¨OO£©ÓïÑÔµÄÇ°ÌáÏÂȥѧASP.NET¡£ ASP.NETÊÇÒ»¸öÈ«ÃæÏò¶ÔÏóµÄ¼¼Êõ£¬²»¶®OO£¬ÄǾø¶Ôѧ²»ÏÂÈ¥£¡
µÚ¶þ²½¡¡¶Ô¡£NET FrameworkÀà¿âÓÐÒ»¶¨µÄÁ˽⠿ÉÒÔͨ¹ý¿ª·¢Windows FormÓ¦ÓóÌÐòÀ´Ñ ......