aspÉÏ´«excleÎļþ²¢µ¼Èëµ½accessÊý¾Ý¿â
<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
dim action,files
action=trim(request("action"))
files=trim(request("files"))
select case action
case "add"
call add(files)
case else
call default()
end select
%>
<%sub default()%>
<form action="?action=add" method="post" id="form1" name="form1">
<table border="0" cellspacing="0" cellpadding="0">
<tr class="title2">
<td colspan="2">ÅúÁ¿ÉÏ´«</td>
</tr>
<tr>
<td>1.ÉÏ´«ExcleÎļþ </td>
<td><input name="files" type="hidden" id="files" />
<iframe frameborder="0" scrolling="no" height="25" width="400" src="upload.asp?action=add"></iframe> </td>
</tr>
<tr>
<td>2.µã»÷"¿ªÊ¼ÉÏ´«" </td>
<td> <label>
<input type="submit" name="button" id="button" value="¿ªÊ¼ÉÏ´«" />
</label> </td>
</tr>
</table>
</form>
<%end sub%>
<%
sub add(files)
dim FileName
if files="" then ClientAlert"ÇëÏÈÉÏ´«ExcleÎļþ","?"
FileName="../upload/file/"&files 'È¡µÃÎļþ·¾¶
Dim connEX
set connEX=CreateObject("ADODB.connection")
connEX.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverId=790;" & _
"Dbq=" & server.mappath(""&FileName&"") & ";" & _
"DefaultDir=G:\"
set rs=createobject("ADODB.recordset")
rs.Open "Select * from [Sheet1$]",connEX, 2, 2
if rs.eof then
response.write "Excel±íÖÐÎ޼ͼ"
else
' set connDB = Server.CreateObject("ADODB.Connection")
' DBPath = Server.MapPath("excel.mdb")
' 'RESPONSE.WRITE DBpath
' connDB.Open "driver=
Ïà¹ØÎĵµ£º
dataurl=Server.MapPath("menutree.mdb")'Êý¾Ý¿âµØÖ·
dim conn,strQuery,rs
set conn = server.CreateObject("adodb.connection")
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl
strQuery="select * from menufun"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1 ......
Login ¿Ø¼þÊÇÒ»ÖÖ¸´ºÏ¿Ø¼þ£¬ÌṩÁ˵Ǽ´°ÌåµÄËùÓг£ÓÃÓû§½çÃæ (UI) ÔªËØ¡£¸Ã¿Ø¼þ±»Ä£¿é»¯£¬¿É·Ö±ð×Ô¶¨Òåÿ¸ö²¿¼þ¡£ÕâЩ²¿¼þ°üÀ¨“Óû§Ãû”ºÍ“ÃÜÂë”Îı¾¿ò¡¢“Ìá½»”°´Å¥¡¢ÓÃÓÚ´´½¨ÐÂÓû§µÄ°´Å¥¡¢“¼ÇסÎÒ”¸´Ñ¡¿òºÍÓû§µÄ°ïÖúÐÅÏ¢¡£Äú¿ ......
ÒÔwin2003²Ù×÷ϵͳ£¬Ó²Å̲ÉÓÃNTFSÎļþϵͳ¡£ÍøÕ¾µÄȨÏÞÉèÖðüº¬Á½²¿·Ö£ºÖ÷ÒªÊÇÍøÕ¾Îļþ¼ÐÓëÎļþµÄ·ÃÎÊȨÏÞ£¬Æä´ÎÊÇIISÖеÄinternetÄäÃûÓû§µÄ·ÃÎÊȨÏÞ¡£
Ò»¡¢ÍøÕ¾Îļþ¼ÐÓëÎļþ·ÃÎÊȨÏÞµÄÉèÖÃ
¼ÙÉèASPÍøÕ¾ÔÚÒÔÏÂÎļþ¼ÐÖУºweb ¡¢bbs£¬ÎÒÃÇ³ÆÆäÎªÍøÕ¾¸ùÎļþ¼Ð¡£
1¡¢ÏàͬµÄÉèÖÃ
£¨1£©±¾µØÓû§Ò»°ã¶¼Òª¶ÔÕ¾µãÄÚµÄÎļþ¼ÐºÍÎÄ ......
ASPÍøÕ¾³ÌÐòÔÚ¹úÄÚÔËÓúܹã,µ«ÊÇÀàËÆÓÚ im286.asp?id=20050307213811ÕâÑùµÄURLÓе㲻ÀûÓÚËÑË÷ÒýÇæµÄÊÕ¼,Ò²¾ÍÊÇ˵²»·ûºÏÓѺÃURL(URLs- Friendly)µÄ±ê×¼,ÄÇôÎÒÃÇÓÃISAPI_Rewrite´òÔìÒ»¸öClean URL,
1.ÏÂÔØISAPI_Rewrite.ISAPI_Rewrite ·Ö¾«¼ò(Lite)ºÍÍêÈ«(Full)°æ.¾«¼ò°æ²»Ö§³Ö¶Ôÿ¸öÐéÄâÖ÷»úÕ¾µã½øÐÐÖØÐ´,Ö»ÄܽøÐÐÈ«¾Ö´¦À ......
<%
'ÈÕÆÚº¯Êý°üDataPackage
%>
<script language="javascript">
function IsDateString(Str)
<!--
{
// УÑéÊÇ·ñYYYY-MM-DD¸ñʽµÄÈÕÆÚÐÍÊý¾Ý£¬·µ»ØÖµÎªTrue³É¹¦£¬·ñÔò·µ»ØFalse
// Èç¹û´«µÝµÄÊÇ¿Õ×Ö·û´®Ôò·µ»ØFalse
// ¶¨Òå·Ö¸ô·û
var sSplit="-"
var iYearPos=Str.indexOf(sSplit);
if (iYearP ......