Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPµ÷Óô洢¹ý³Ì£ºÓÐÊäÈë²ÎÊýºÍÊä³ö²ÎÊýµÄ´æ´¢¹ý³Ì


¡¡¡¡4. ÓÐÊäÈë²ÎÊýºÍÊä³ö²ÎÊýµÄ´æ´¢¹ý³Ì
¡¡¡¡·µ»ØÖµÆäʵÊÇÒ»ÖÖÌØÊâµÄÊä³ö²ÎÊý¡£ÔÚ´ó¶àÊýÇé¿öÏ£¬ÎÒÃÇÓõ½µÄÊÇͬʱÓÐÊäÈë¼°Êä³ö²ÎÊýµÄ´æ´¢¹ý³Ì£¬±ÈÈçÎÒÃÇÏëÈ¡µÃÓû§ÐÅÏ¢±íÖУ¬Ä³IDÓû§µÄÓû§Ãû£¬Õâʱºò£¬ÓÐÒ»¸öÊäÈë²ÎÊý----Óû§ID£¬ºÍÒ»¸öÊä³ö²ÎÊý----Óû§Ãû¡£ÊµÏÖÕâÒ»¹¦ÄܵĴ洢¹ý³ÌÈçÏ£º
/*SP4*/
CREATE PROCEDURE dbo.getUserName
@UserID int,
@UserName varchar(40) output
as
set nocount on
begin
if @UserID is null return
select @UserName=username
from dbo.[userinfo]
where userid=@UserID
return
end
go
¡¡¡¡µ÷Óøô洢¹ý³ÌµÄASP´úÂëÈçÏ£º
'**µ÷ÓôøÓÐÊäÈëÊä³ö²ÎÊýµÄ´æ´¢¹ý³Ì**
DIM MyComm,UserID,UserName
UserID = 1
Set MyComm = Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection = MyConStr 'MyConStrÊÇÊý¾Ý¿âÁ¬½Ó×Ö´®
MyComm.CommandText = "getUserName" 'Ö¸¶¨´æ´¢¹ý³ÌÃû
MyComm.CommandType = 4 '±íÃ÷ÕâÊÇÒ»¸ö´æ´¢¹ý³Ì
MyComm.Prepared = true 'ÒªÇó½«SQLÃüÁîÏÈÐбàÒë
'ÉùÃ÷²ÎÊý
MyComm.Parameters.append MyComm.CreateParameter("@UserID",3,1,4,UserID)
MyComm.Parameters.append MyComm.CreateParameter("@UserName",200,2,40)
MyComm.Execute
'È¡µÃ³ö²Î
UserName = MyComm(1)
Set MyComm = Nothing
¡¡¡¡ÔÚÒÔÉÏ´úÂëÖУ¬¿ÉÒÔ¿´µ½£¬ÓëÉùÃ÷·µ»ØÖµ²»Í¬£¬ÉùÃ÷ÊäÈë²ÎÊýʱÐèÒª5¸ö²ÎÊý£¬ÉùÃ÷Êä³ö²ÎÊýʱÐèÒª4¸ö²ÎÊý¡£ÉùÃ÷ÊäÈë²ÎÊýʱ5¸ö²ÎÊý·Ö±ðΪ£º²ÎÊýÃû¡¢²ÎÊýÊý¾ÝÀàÐÍ¡¢²ÎÊýÀàÐÍ¡¢Êý¾Ý³¤¶È¡¢²ÎÊýÖµ¡£ÉùÃ÷Êä³ö²ÎÊýʱ£¬Ã»ÓÐ×îºóÒ»¸ö²ÎÊý£º²ÎÊýÖµ¡£
¡¡¡¡ÐèÒªÌØ±ð×¢ÒâµÄÊÇ£ºÔÚÉùÃ÷²ÎÊýʱ£¬Ë³ÐòÒ»¶¨ÒªÓë´æ´¢¹ý³ÌÖж¨ÒåµÄ˳ÐòÏàͬ£¬¶øÇÒ¸÷²ÎÊýµÄÊý¾ÝÀàÐÍ¡¢³¤¶ÈÒ²ÒªÓë´æ´¢¹ý³ÌÖж¨ÒåµÄÏàͬ¡£
¡¡¡¡Èç¹û´æ´¢¹ý³ÌÓжà¸ö²ÎÊý£¬ASP´úÂë»áÏԵ÷±Ëö£¬¿ÉÒÔʹÓÃwithÃüÁî¼ò»¯´úÂ룺
'**µ÷ÓôøÓÐÊäÈëÊä³ö²ÎÊýµÄ´æ´¢¹ý³Ì(¼ò»¯´úÂë)**
DIM MyComm,UserID,UserName
UserID = 1
Set MyComm = Server.CreateObject("ADODB.Command")
with MyComm
¡¡.ActiveConnection = MyConStr 'MyConStrÊÇÊý¾Ý¿âÁ¬½Ó×Ö´®
¡¡.CommandText = "getUserName" 'Ö¸¶¨´æ´¢¹ý³ÌÃû
¡¡.CommandType = 4 '±íÃ÷ÕâÊÇÒ»¸ö´æ´¢¹ý³Ì
¡¡.Prepared = true 'ÒªÇó½«SQLÃüÁîÏÈÐбàÒë
¡¡.Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
¡¡.Parameters.append .CreateParameter("@UserName",200,2,40)
¡¡.Exec


Ïà¹ØÎĵµ£º

ASPÖÐÊ®´ó³£ÓóÌÐò´úÂë.£ºµÚÈý½Ú¡´ÎÒµÄÐĵáµ

ÔÚInterDevÖÐʵÏÖÍøÉϹºÎïÍÆ³µ(1)
  
¡¡±¾ÎĽ«½éÉÜÔÚInterDevÖÐʵÏÖÍøÉÏÉ̵깺Îï³µ¹¦Äܵķ½·¨£¬¾ßÌå²½ÖèÈçÏ£º
¡¡¡¡Ò»¡¢ Êý¾Ý¿â½á¹¹£º
¡¡¡¡²úÆ·Êý¾Ý±í(Products): ´æ·Å²úÆ·ÐÅÏ¢
²úÆ·Ãû  ProductName
²úÆ·±àºÅ ProductID
µ¥¼Û Price
·ÖÀà±àºÅ CategoryID
¡¡¡¡ Cart£º¹ºÎï³µÊý¾Ý±í£¬ÁÙʱ´æ·Å¿Í»§µÄ¶ ......

ASPÖÐÊ®´ó³£ÓóÌÐò´úÂë.£ºµÚ¾Å½Ú¡´ÎÒµÄÐĵáµ

ÓÃASPʵÏÖÖ§³Ö¸½¼þµÄEMailϵͳ(3)
  
¡¡¡¡³¢ÊÔ·¢ËÍÓʼþ£¬µ«ÊÇʧ°ÜÁË£¬ÇëÐ޸ĴíÎóºóÖØÊÔ£¡
£¼script language="javascript"£¾
alert("ÄúÊäÈëµÄÊÕ¼þ×é¸ñʽ´íÎó£¡\rÕýÈ·µÄ¸ñʽÊÇ:'gr:001'");
history.back();
£¼/script£¾
£¼p£¾
£¼%
response.end
else
thegroup=(mid(trim(strfieldvalue),4))
end if
......

aspѧϰ±Ê¼Ç


VBScript:
¶¨Òå±äÁ¿Ê±ºò²»ÄÜÖ±½Ó¸³Öµ£¬È磺
Dim i=1 ÊÇ´íÎóµÄ£¬Ó¦¸ÃÕâÑù£º
Dim i
i = 1
——————————————
½áÊø³ÌÐò£ºresponse.end
Ìø³öÑ­»·»òÕߺ¯Êý¡¢×Ó³ÌÐòµÈÓÃexit …
——————&m ......

[ת]aspµÄtextboxµÄjavascriptÓ¦ÓÃ

<%@ Page Language="C#" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server"> </script>
<html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server">
<title ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ