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
Ïà¹ØÎĵµ£º
web serviceÔÚÏÖÔڵĸ÷ϵͳÖеõ½Á˹㷺µÄÓ¦Óá£ËüΪÎÒÃǸ÷ϵͳ֮¼äµÄ¹¦ÄÜ·ÃÎÊ£¬Êý¾Ý½»»»,Æðµ½Á˲»¿ÉÄ¥ÃðµÄ×÷Ó᣶øÇÒ»¹Äܼò»¯ÎÒÃǵıä³É£¬Ôڴ˾ͶÔasp×÷Ϊwebservice¿Í»§¶ËÉÔ×÷̽ÌÖ¡£
±¾ÎÄͨ¹ý½«Ò»Ð©¾ßÌåµÄÒµÎñ¹¦ÄÜд³ÉXML Web Services²¢ÇÒ½«ÕâЩXML Web ServicesÓëASP³ÌÐòÍêÃÀ½áºÏ£¬ÏÖÓеÄASP³ÌÐò¾Í¿ÉÒÔÏóASP.NE ......
¿´µ½ÓÐÅóÓÑ˵ǰÃæÒ»Õ½²µÃû±ØÒª,ÏëÏëҲȷʵ.±¾À´ÊÇûÓдòËã½²ÕâЩ»ù´¡µÄ,Ö»ÊÇÐÐÎÄÆðÀ´Ã»ÓÐÔ¼Êø,¾Íµ´¿ªµ½»ù´¡ÖªÊ¶ÉÏÃæÁË.
´ÓÕâ½Ú¿ªÊ¼,½«»á¸ø´ó¼Ò½éÉÜASPÖеÄÈý´óͨÓÃÀà,Ëü¹á´©ÓÚÎÒËùÉè¼ÆµÄÈý²ã¼Ü¹¹ÖÐ,ÊǶÔASPÓï·¨µÄÀ©Õ¹,¿ÉÒÔÌá¸ßºÜ¶àϸ½Ú´¦ÀíÉϵÄЧÂÊ,¿ÉÒÔËãÊÇÒ»µãµã¿ò¼ÜµÄζµÀ.
& ......
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false '²»ÏÔʾ¾¯¸æ
'xlApp.Application = false ......
ActiveConnection ÉèÖûò·µ»ØCommand¶ÔÏóµÄÁ¬½ÓÐÅÏ¢£¬¸ÃÊôÐÔ¿ÉÒÔÊÇÒ»¸öConnection¶ÔÏó»òÁ¬½Ó×Ö·û´®¡£
CommandText ÉèÖûò·µ»Ø¶ÔÊý¾ÝÔ´µÄÃüÁî´®£¬Õâ¸ö´®¿ÉÒÔÊÇSQLÓï¾ä¡¢±í¡¢´¢´æ¹ý³Ì»òÊý¾ÝÌṩÕßÖ§³ÖµÄÈÎ ºÎÌØÊâÓÐЧµÄÃüÁîÎı¾¡£
Prepared Ìá³öÔÚµ÷ÓÃCommand¶ÔÏóµÄExecute·½·¨Ê±£¬ÊÇ·ñ½«²éѯµÄ±àÒë½á¹û´¢´æÏÂÀ´¡£Èç¹û½«¸ ......
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 ......