aspºÍfsoʵÏÖɾ³ýÎļþ»òÎļþ¼Ð
'--------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<script>
function checkAll(){
for (i=0;i<document.forms[1].length;i++){
if (document.forms[1][i].tagName=="INPUT"){
if (document.forms[1][i].type=="checkbox")
{document.forms[1][i].checked="checked"}
}
}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<form name="form2" action="delf.asp" method="post" onsubmit="if (confirm('ÊÇ·ñɾ³ýÑ¡ÔñµÄÎļþ»òÎļþ¼Ð')) {return true} else {return false}">
<input type="hidden" name="whatdo" value="DelFiles"/>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#ff9600" colspan="5"height="2"></td>
</tr><%
AttPath=Request.QueryString("AttPath")
if len(AttPath)<1 then
AttPath="uploadfile"
elseif bc(server.mapPath(AttPath),server.mapPath("uploadfile")) then
AttPath="uploadfile"
end If
ArrFolders=split(getPathList(AttPath)(0),"*")
Arrfiles=split(getPathList(AttPath)(1),"*")
'response.write (AttPath&"<br>")
if AttPath<>"uploadfile" then
arrUpFolders=split(AttPath,"/")
for i=0 to ubound(arrUpFolders)-1
arrUpFolder=arrUpFolder&TempF&arrUpFolders(i)
TempF="/"
next
end if%>
<tr>
<td height="30" align="left" valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> <td width="9%" align="center"><a href="keshikongjian.asp"><img src="images
Ïà¹ØÎĵµ£º
Win2003ÏÂAsp¡¢IISÅäÖü¼ÇÉ
¡¡¡¡windows 2003·ÛÄ«µÇ³¡£¬ºÜ¶à¸Ïʱ÷ÖµÄÓû§ÒѾÔç¾ÍÊÔÓÃÁË£¬µ«¾¡¹Ü2003ºÅ³Æ°²È«ÐÔÓкܴóÍ»ÆÆ£¬µ«ÆäĬÈÏÖ§³Ö.net¼Ü¹¹£¬¶øÅׯúʹÓÃÁ˺ܾõĴóÖÚ»¯µÄAspµÄ·Ïßȱ±¥ÊÜÖÊÒÉ£¬ÐèÒªÎÒÃÇÊÖ¶¯È¥ÅäÖúܶණÎ÷¡£
¡¡¡¡ÔÚ IIS 6.0 ÖУ¬Ä¬ÈÏÉèÖÃÊÇÌØ±ðÑϸñºÍ°²È«µÄ£¬ÕâÑù¿ÉÒÔ×î´óÏ޶ȵ ......
aspÏνÓMssqlµÄ°ì·¨¼°³£¼ûµÄ²î´í
//µÚÒ»ÖÖд·¨£º
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
R ......
·½·¨Ò» : ½ûÓÃHTML
×î¼òµ¥µÄ·½·¨ÊÇÖ±½Ó½ûÓÃhtml±êÇ©¶ø²»ÓÃÒÆ³ýËüÃÇ. ¿ÉÒÔʹÓÃReplace()º¯Êý. ÀýÈç:
strText = Replace(strText, "<script", "<script", 1, -1, 1)
»òÕßÖ±½Ó½ûÓÃËùÓеÄhtml:
strText = Replace(strText, "<", "<")
ÕâÑù×öËäÈ»ºÜ°²È«,µ«ÏԵò»¹»ÓѺÃ.(Óû§Ìá½»µÄÎı¾»á±äµ ......
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false '²»ÏÔʾ¾¯¸æ
'xlApp.Application = false ......
'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'µ±Óû§µÇ¼ʱ¿ÉÒÔÖ´ÐÐthen
<script>
function checkAll(){
&nbs ......