ASPдµÄÅúÁ¿µ¼³öIISÓòÃûÁбí
×î½ü¹À¼ÆºÜ¶àÈ˶¼Åöµ½ºÍÎÒͬÑùµÄÎÊÌ⣬¾ÍÊÇÒòΪɨ»Æ¼°±¸°¸¹ÜÀí·Ç³£ÑÏ£¬Ò»¸öû±¸°¸Ö±½Ó¹Ø·þÎñÆ÷£¬Ò»¸ö»ÆÕ¾Ö±½Ó·â»ú·¿¡£ÏÖÔÚÍøÕ¾ËùÓÐÓòÃû±ØÐèͨ¹ý±¸°¸£¬ÒÔǰ»¹Ëɵ㡣µ«ÎÒÃÇ·þÎñÆ÷100¶à¸ö£¬×ܲ»ÄÜÒ»¸öÒ»¸ö¼ì²é°É£¬ÉÏÍøËÑÁËÏ£¬Óиö³ÌÐòÉÔºÏÊÊ£¬µ«µ¼³öµÄÊÇÍøÕ¾ÓòÃûÕ¾µãÃû£¬ÎÒÐÞ¸ÄΪµ¼³öÓòÃûÁÐ±í£¬Í¬Ê±½â¾öÁ˵¼³öÒ»¸öÕ¾µã°ó¶¨¶à¸öÓòÃûµÄÎÊÌ⣬¸üÊʺÏ×Ô¼ºµÄÓ¦Óã¬Ô³ÌÐòÎÞ´Ó¿¼¾¿³ö´¦£¬±¾×Å¿ªÔ´ÔÔò£¬ÏÖ°ÑÐ޸ĺóµÄÔ´Âë·Å³öÀ´£¬Ï£ÍûÄܶԴó¼ÒÓÐÓá£
ʹÓ÷½·¨
1.ÔÚIISÖе¼³öxmlÅäÖÃÎļþ¡£¿É²Î¿¼ÏÂÃæÍ¼Æ¬¡£ÔÚÍøÕ¾µãÓÒ¼ü£¬Ñ¡ÔñËùÓÐÈÎÎñ£¬Ñ¡Ôñ±£´æÖÁÒ»¸öÎļþ£¬ÀýÈç´æÎªiis.xml¡£
2.°ÑÏÂÃæ³ÌÐò¸´ÖƵ½¼Çʱ¾ºó£¬±£´æÎªÒ»¸öaspÎļþ£¬Àýiis.asp£¬È»ºó·ÅÔÚÍøÕ¾Ò»¸öÓÐÖ´Ðнű¾È¨ÏÞµÄĿ¼¼´¿ÉÖ´ÐС£Í¬Ê±ÐèÒª°Ñ¸Õ²Åµ¼³öµÄxmlÎļþ·ÅÔÚͬĿ¼Ï¡£
<%option explicit
dim fso
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dim ts
Set ts = fso.OpenTextFile(server.MapPath("iis.xml"),1) 'Ð޸Ĵ˴¦µÄiis±¸·ÝÎļþÃû¼´¿É,ͬĿ¼ÏÂŶ
dim content
content= ts.ReadAll
content=Replace(content,chr(13),"")
content=Replace(content,chr(10),"")
content=Replace(content,chr(32),"")
content=split(content,"IIsWebServe")
function getdomain(str)
dim reg,readstr,matches,match1
set reg=new Regexp
reg.Multiline=True
reg.Global=false
reg.IgnoreCase=true
reg.Pattern="ServerBindings(.*)ServerComment"
Set matches = reg.execute(str)
For Each match1 in matches
readstr=match1.Value
Next
Set matches = Nothingx
Set reg = Nothing
getdomain=replace(readstr,"ServerBindings=","")
getdomain=replace(getdomain,"""","")
getdomain=replace(getdomain,"ServerComment","")
end function
response.Clear()
dim i
for i=0 to ubound(content)
if instr(content(i),"ServerBindings")>0 then
response.Write Replace(getdomain(content(i)),":80:","<br>")&"<br>"
end if
next
%>
Ïà¹ØÎĵµ£º
public static void SetTreeNode(System.Web.UI.WebControls.TreeView treeRolePopedom, string rolecode,out string errMsg)
{
int k = 0;
& ......
Èí¼þÃû³Æ£º·ç¶É¿Æ¼¼ASPÍøÉϹºÎïϵͳ v0912-26
Èí¼þ´óС£º7069k
ÔËÐл·¾³£ºASP/Access
Èí¼þÀà±ð£ºµç×ÓÉÌÎñ
Èí¼þÊÚȨ£ºÃâ·Ñ
¿ª·¢É̼Ò: ·ç¶É¿Æ¼¼
¹Ù·½ÍøÕ¾£ºhttp://www.chinammc.com
ÑÝʾµØÖ·£ºhttp://demo01.chinammc.com
ÏÂÔØµØÖ·: http://w ......
ÔõôÓÃaspÅжÏÏÂÃæµÄÐÅÏ¢ÕâÀïÎÒÊÇ¿´µ½¶¯Ì¬ÍøµÄ.
FSOÎļþ¶Áд √ Jmail·¢ËÍÓʼþÖ§³Ö ×
CDONTS·¢ËÍÓʼþÖ§³ ......
½ñÌ칫˾ҪÇóÓÃC#д¸öÑéÖ¤Âë×é¼þ£¬ÈÃasp¿ÉÒÔµ÷Óã¬ÔÚÍøÉÏÕÒÁËÒ»¶Ñ×ÊÁÏ£¬ÖÕÓÚ¸øÎÒ¸ø¸ã³öÀ´ÁË£¬ÒòΪ±¾È˵ÚÒ»´Îд×é¼þ£¬Ò²ÊǵÚÒ»´Î·¢±íÎÄÕ£¬ËùÓпÉÄÜ˵µÄ²»ÊǺܺ㬴ó¼ÒÇë¼ûÁ¡£
csdnÉÏÓÐÕâôƪÎÄÕ£¬Ïëѧϰд×é¼þµÄ¿ÉÒÔÈ¥¿´¿´£ºhttp://blog.csdn.net/KimmKi ......
Õª×Ô£ºhttp://shawangkun.woku.com/article/2723424.html
×î¼òµ¥µÄÓÃÒÔÏÂÓï¾ä:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
µ«ÕâÖÖ·½·¨¶Ô´úÀí·þÎñÆ÷ÉÏÍøµÄ¾Í²»×¼ÁË,¹Ê±È½ÏÈ«ÃæµÄÊÇÓÃÏÂÃæµÄ·½·¨:
<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_F ......