asp°ÑaccessÊý¾Ý¿âÄÚÈݵ¼³öµ½excelµÄ´úÂë
ÎÒдÁËÒ»¶Î£¬µ«ÊÇÓеãÎÊÌâ¡£°ïæ¿´¿´¡£
<%
action=request("action")
if action="make_excel" then'Ö»ÓлñȡָÁî²Å½øÐвÙ×÷
dim conn,ConnStr
ConnStr="DBQ="+server.mappath("../db/#sdoa.asa")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open ConnStr
dim rs,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'¶¨ÒåÎļþ·¾¶£¬Ö±½ÓΪµ±Ç°Ä¿Â¼
filepath=Request.ServerVariables("APPL_PHYSICAL_PATH")
'¶¨ÒåÎļþÃû£¬ÒÔµ±Ç°Ê±¼ä×÷ÎļþÃû£¬²»»áÖØ¸´
filename = filepath&year(now)&month(now)&day(now)&".xls"
response.Write(filepath&"sss <br>")
response.Write(filename)
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
sql&nbs
Ïà¹ØÎÊ´ð£º
<form id="form1" runat="server">
<div>
<script type="text/javascript">
function oo(a){
document.getEleme ......
×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......
±¾ÈËÓÐÈýÄ꿪·¢¾Ñé,ÏÖÔÚÕÒ¹¤×÷(ÏÃÃÅ),,,ÓÐÒâÕßÇëÁªÏµQQ:523054271
1.5Ä깤×÷¾ÑéÕÒ¹¤×÷ ËûÒª¶àÉÙ ÎÒÒªÒ»°ë~~
±ð˵ÈýÄêµÄÁË...¾ÍÊÇ5ÄêµÄÒ²Ò»×¥Ò»´ó°Ñ.....
°³ÐèÒªÓÃasp+access×öÒ»¸ö½øÏú´æÈí¼þ£¬ÄúÄÜ×ö ......