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

Ò»¸öASPÅжÏ×Ö·û´®µÄÎÊÌâ

×Ö¶ÎPowerListÀïÃæµÄÖµ£ºKSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
ÏÖÔÚÒªÅжϣ¬µ±PowerListÀïÃæ´æÔÚKSO10004Õâ¸öÖµµÄʱºò£¬Êä³ö£ººÃ


VBScript code:

<%
set rs=server.CreateObject("adodb.recordset")
sql="select PowerList from ±í where PowerList ='KSO10004'"
rs.open sql,conn,1,1
if not rs.eof then
response.Write("ºÃ")
end if

%>

ÕâÑù£¿£¿

VBScript code:
if inStr("KSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008","KSO10004" ) then Response.write "ºÃ"


VBScript code:
PowerList=KSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
PowerList=","&PowerList&","
checkStr=KSO10000 '´ø¼ì²éµÄÖµ
checkStr=","&checkStr&","
if (instr(PowerList,"checkStr")>0) then
response.write("ºÃ")
end if

ÎÒÕâ¸öд·¨Ò²ÊʺÏÅжÏÊý×Ö

VBScript code:
Function chkStrInStrs(vStr,vStrs)


Ïà¹ØÎÊ´ð£º

asp³õѧÎÊÌâ¡£responseÕÒ²»µ½

<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......

ASP¼òµ¥ÎÊÌâ

conn.asp

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("Connt ......

ÎÒÏë×öÒ»¸öaspÍøÕ¾£¬µ«ÊDz»ÖªµÀ×öʲô£¡

×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......

Çó¸ÄÒ»¸öASPС³ÌÐò¼ÓÉÏ´«¹¦ÄܺÍÏÂÔØ¹¦ÄÜ¡£¡£

Îļþ£ºfolder.inc
HTML code:

<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......

³õʶasp,Çë¸ßÊÖÖ¸½Ì

ÎÒÏëÓÃaspд¸öÒ³ÃæÒÔǰûÓнӴ¥¹ý£¬ÎÒ¿´ÍøÉÏ˵aspµÄÔËÐл·¾³Ö»ÄÜÊÇwindows£¬»¹±ØÐëҪװIIS¡£
Çë½Ì¸÷λ¸ßÊÖ£¬asp»¹ÓÐÆäËûµÄÔËÐл·¾³Âð?
²î²»¶à¾ÍÕâЩÁË£¬¾ÍÊÇIISÒ»¶¨Òª×°ºÃ
»¹ÓÐÒªÊÇÓÃVS2005µÄ»°ºÃÏñ¿ÉÒÔÖ±½ÓÔ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ