aspºÍfsoʵÏÖÉÏ´«Îļþ
'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'µ±Óû§µÇ¼ʱ¿ÉÒÔÖ´ÐÐthen
<script>
function checkAll(){
for (i=0;i<document.forms[0].length;i++){
if (document.forms[0][i].tagName=="INPUT"){
if (document.forms[0][i].type=="radio")
{document.forms[0][i].checked="checked"}
}
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {
color: #CC3300;
font-size: 13px;
font-family: "ËÎÌå";
font-weight: bold;
}
.STYLE5 {
font-family: "ËÎÌå";
color: #FF0000;
}
.STYLE7 {
font-family: "ËÎÌå";
font-size: 13px;
}
-->
</style>
<script language="javascript">
<!--
function checkform1()
{
if (form1.AttPath.value=="")
{
alert("ÇëÊäÈëÃû³Æ£¡")
form1.AttPath.focus()
return false
}
if (form1.pic.value=="")
{
alert("ÇëÑ¡ÔñÉÏ´«Îļþ£¡")
form1.pic.focus()
return false
}
return true
}
//-->
</script>
<% '±éÀúuploadfileÎļþ¼Ð
AttPath=Request.QueryString("AttPath")
if len(AttPath)<1 then
AttPath="uploadfile"
elseif bc(server.mapPath(AttPath),server.mapPath("u
Ïà¹ØÎĵµ£º
ÓÉÓÚ¹¤×÷ÔÒò£¬±ÊÕß¾³£ÐèҪʹÓÃAsp¿ª·¢Ò»Ð©Ð¡ÐͳÌÐò£¬ÔÚWindows 2000Ï¿ª·¢ºÍʹÓÃÏà¹Ø³ÌÐòʱһ°ã²»»á³öÏÖʲôÎÊÌ⣬²¢ÇÒÒ²ºÜÈÝÒ×½â¾ö¡£µ«ÊÇÓÉÓÚ±ÊÕßΪÁ˳¢ÏÊʹÓÃÁËWindows 2003 Serverʱ£¬¿ª·¢Ïà¹Ø³ÌÐò¾Í³öÏÖÁËÕâÑùÄÇÑùµÄÎÊÌ⣬±ÈÈçä¯ÀÀÆ÷²»ÄÜÏÔʾÏêϸ³ö´íÐÅÏ¢£¬Á¬½ÓAccessʱ×ÜÊDZ¨´íµÈ£¬ÈñÊÕ߿಻¿°ÑÔ¡£ÔÚ¶à´Îʵ¼ùºÍ²é¿´ ......
Win2003ÏÂAsp¡¢IISÅäÖü¼ÇÉ
¡¡¡¡windows 2003·ÛÄ«µÇ³¡£¬ºÜ¶à¸Ïʱ÷ÖµÄÓû§ÒѾÔç¾ÍÊÔÓÃÁË£¬µ«¾¡¹Ü2003ºÅ³Æ°²È«ÐÔÓкܴóÍ»ÆÆ£¬µ«ÆäĬÈÏÖ§³Ö.net¼Ü¹¹£¬¶øÅ×ÆúʹÓÃÁ˺ܾõĴóÖÚ»¯µÄAspµÄ·Ïßȱ±¥ÊÜÖÊÒÉ£¬ÐèÒªÎÒÃÇÊÖ¶¯È¥ÅäÖúܶණÎ÷¡£
¡¡¡¡ÔÚ IIS 6.0 ÖУ¬Ä¬ÈÏÉèÖÃÊÇÌرðÑϸñºÍ°²È«µÄ£¬ÕâÑù¿ÉÒÔ×î´óÏ޶ȵ ......
ÔÚÎÄÕµ÷ÊÔJavaScript/VB Script½Å±¾³ÌÐò£¨Wscriptƪ£©ÀïÃ棬ÓÐÍøÓÑÎÊÎÒÈçºÎµ÷ÊÔASPÀïÃæµÄ½Å±¾³ÌÐò£¬ÎÒ²»ÖªµÀËûÎʵÃÊǵ÷ÊÔASPÍøÒ³ÀïÃæµÄVBScript ASP´úÂ룬»¹ÊÇASP.NETÍøÒ³ÀïÃæµÄJavaScript/VBScript¿Í»§¶Ë´úÂ룬ËùÒÔÎÒ¾ÍÔÚÕâƪÎÄÕÂÀïÃæÏȽ«µ÷ÊÔASPÍøÒ³ÀïÃæµÄASP´úÂëÕâÖÖÇé¿ö¶¼½âÊÍһϰɡ£
¹À¼ÆASPÕâ¸öÍæÒÕÓõÄÈËÒѾºÜÉÙ ......
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false '²»ÏÔʾ¾¯¸æ
'xlApp.Application = false ......
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
Dim StrSQL,RS
StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
StrSQL=StrSQL&"AND Pin='"&passwor ......