asp»ñÈ¡URLµÄ·½·¨
·½·¨Ò»£º¼òµ¥£¬µÃ²»µ½²ÎÊý£¬Ö»ÓÐÒ»¸öÐéÄâ·¾¶
GetUrl =request("url")
ÀýÈ磺http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
»ñȡΪ:shiyan.asp
·½·¨¶þ£ºµÃµ½Õû¸öURL£¬µÃµ½²ÎÊý
'µÃµ½µ±Ç°Ò³ÃæµÄµØÖ·
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function
ÀýÈ磺http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
»ñȡΪ£ºhttp://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
·½·¨¶þ£ºµÃµ½ÐéÄâ·¾¶£¬µÃµ½²ÎÊý
Private Function GetUrl()
Dim ScriptAddress,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) 'È¡µÃµ±Ç°µØÖ·
Ïà¹ØÎĵµ£º
ÔÚaspÊý×鶨ÒåÖÐ,¿ÉÒÔÖ±½Ó¶¨Òå,Ò²¿ÉÒÔʹÓÃArrayº¯Êý¶¨Òå..
ÏÈ¿´ÓÃArray()º¯Êý¶¨ÒåÀý×Ó:
<%
dim MyArray
MyArray=Array("ÌìÑÄ·çÔÆ","СС³ÌÐòÔ±")
%>
<p><%=MyArray(1)%></p>
·µ»Ø½á¹û:СС³ÌÐòÔ±
Ö±½Ó¶¨Òå:
<%
dim MyArray(2)
MyArray(0)="ÌìÑÄ·çÔÆ"
MyArray(1)="СС³ ......
<%
'¹ºÎï³µÀà ÀàÃû£ºUserCart
'×÷Õß:gameing
'»ù±¾ÔÀí:´ËÀàÓ÷þÎñÆ÷Session±äÁ¿±£´æÉÌÆ·Êý¾Ý,ÉÌÆ·ÓÃÒ»¸öÊý×é±íʾ.´ËÀàÀïÃæ±£´æÁËÈýÖÐÉÌÆ·¼Û¸ñ.
'1¡¢2008-11-25ÐÞ¸ÄFunction AddItem() by tommy ÉÌÆ·Ôö¼ÓÔÚ×îºó
'2¡¢2008-11-25ÐÞ¸Äby tommy Ôö¼Óɾ³ýÉÌÆ·¹ý³Ì Sub DelItem()
'3¡¢2008-11-25ת»»Ò»Ð©Êý¾ÝÀàÐͲÅÄÜÔ ......
<script language="JavaScript">
function reloadcode(){
var verify=document.getElementById('safecode');
verify.setAttribute('src','images/chknumber.asp?'+Math.random());
//ÕâÀï±ØÐë¼ÓÈëËæ»úÊý²»È»µØÖ·ÏàͬÎÒ·¢ÖØмÓÔØ
}
</script>
<img src="images/chknumber.asp"&n ......
ÏÖÏó£ºÆÕͨµÄhtmlÎÄ×ÖÏÔʾÕý³££¬µ«ÓÃresponse.writeµÈasp´úÂëÊä³öµÄÎÄ×־ͳöÏÖÂÒÂë
½â¾ö·½·¨£ºÆð³õÒÔΪÊÇä¯ÀÀÆ÷±àÂë³ö´íµÄÔÒò£¬ËùÓÐÔÚ´úÂëÖмÓÈë
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
µ«»¹ÊdzöÏÖÂÒÂ룬ÎÊÌâû½â¾ö£¬ÉÏÃæµÄ´úÂëÖ¸¶¨µÄÊÇhtml¾²Ì¬ÎÄ×ֵıàÂë
×îºó²é×ÊÁÏ·´Ê¡ÊÇc ......
<!--#include file="conn.asp" -->
<!--#include file="Fun.asp" -->
<%
'·¢ËÍÓʼþÀà
class SendEmails
'·¢ËÍ
private flag
private info
public sub Class_Initialize()
flag=false
info=""
end sub
public sub Class_Terminate()
flag=false
info=""
......