ʹÓÃASP·¢ËÍ·ÉÐŵÄÃâ·Ñ¶ÌÐÅ
ʹÓÃASP·¢ËÍ·ÉÐŵÄÃâ·Ñ¶ÌÐÅ
ҪʵÏÖÔÚaspÍøÕ¾ÉÏ·¢ËÍ·ÉÐÅ£¬ÒªÇóÊÇÖйúÒÆ¶¯µÄÊÖ»úÓû§£¬²¢ÇÒ¿ªÍ¨Òƶ¯·ÉÐŹ¦ÄÜ¡£
ʹÓÃÒÔÏÂasp´úÂ룬Ð޸IJÎÊýΪÄãµÄÊÖ»úºÅ¼°·ÉÐÅÃÜÂ룬¾Í¿ÉÒÔʵÏÖÔÚÍøÕ¾·¢Ãâ·Ñ¶ÌÐŹ¦ÄÜ¡£
fsend.aspÎļþÔ´´úÂëÈçÏ£º
<%
Dim fno,fp,tofno,rurl
fno="138xxxxxxxx" 'ÊÖ»úºÅ
fp="xxxxxxxx" '·ÉÐÅÃÜÂë
tofno="137xxxxxxxx" '·¢ËÍÄ¿±êÊÖ»úºÅ(ÒªÇóÊÇ×Ô¼ºµÄºÅÂë»ò·ÉÐźÃÓÑ)
rurl="" 'Ìá½»ºó×ªÒÆµ½µÄÄ¿±êµØÖ·(Áô¿Õ½«²»×ªÒÆ)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ÇëÁôÏÂÄãµÄÁªÏµÐÅÏ¢</title>
</head>
<body style="font-size: 10pt; font-family: ËÎÌå">
<%if (Request("msg")="") then%>
<form method="POST" action="fsend.asp">
<br>ÇëÁôÏÂÄãµÄÁªÏµÐÅÏ¢<br>
<hr>
ÁªÏµÐÅÏ¢:<br><textarea rows="5" name="msg" cols="27"></textarea><br>
<p><input type="submit" value="Ìá½»" name="B1"></p>
</form>
<%
else
Dim returnString
Dim msg
msg=Request("msg")
returnString=sendf(fno,fp,tofno,msg)
if rurl="" then
Response.Write returnString&"<br><a href='fsend.asp'>·µ»Ø</a>"
else
Response.Redirect rurl
end if
end if
%>
</body>
</html>
<%
function sendf(fno,fp,tofno,msg)
'º¯Êý²ÎÊý˵Ã÷:fno=µÇ¼ÊÖ»úºÅ,fp=µÇ¼ÃÜÂë,tofno=Ä¿±êÊÖ»úºÅ,msg=Òª·¢Ë͵ÄÐÅÏ¢
Dim
Ïà¹ØÎĵµ£º
'**************************************************
'º¯ÊýÃû£ºFSOFileRead
'×÷ ÓãºÊ¹ÓÃFSO¶ÁÈ¡ÎļþÄÚÈݵĺ¯Êý
'²Î Êý£ºfilename ----ÎļþÃû³Æ
'·µ»ØÖµ£ºÎļþÄÚÈÝ
'************** ......
ASPÊÇ΢Èí¹«Ë¾ÊµÏÖ¶¯Ì¬ÍøÒ³µÄÒ»ÖÖ¼¼Êõ¡£
ASPÖ§³ÖһЩ½Å±¾ÓïÑÔ£¬Ö÷ÒªÒÔVBScriptΪÖ÷¡£
ÓëASPÏà±È½Ï£¬Ä㻹¿ÉÒÔÑ¡ÔñÁíÒ»Öпª·ÅÔ´´úÂë±à³ÌÓïÑÔ——PHP£¬PHP¿ÉÒÔÔËÐÐÔÚ¶àÖÖ²Ù×÷ϵͳÏ£¬ÆäÖаüÀ¨LinuxºÍwindows¡£
ËäÈ»ASPÊÇÒ»ÖÖ²»´íµÄ¼¼Êõ£¬µ«´Ó³¤Ô¶¿¼ÂÇÎÒÏàÐÅPHPÔÚ½«À´µÄ¼¼ÊõÁìÓòÀï»áÓв»·²µÄ±íÏÖ¡£
ÎÒÈÏΪÓÐÆß¸ ......
Ê×ÏÈÌù´úÂ룺
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º" & objDic.Item("key")(0))
objDic.Item("key")(1) = ob ......
ºÜ¼òµ¥µÄ½Ì³Ì£¬Ï׸øÏ²»¶SEOµÄÅóÓÑÃÇ¡£°Ñhttp://www.***.cn/article.asp?logID=26 Ìæ»»³Éhttp://www.***.cn/article.asp?/a26.html¡£²»ÐèҪͨ¹ýiis+ISAPI_Rewrite×ö»ùÓÚIISµÄurl rewrite
Ò»¡¢Êý¾Ý¿âºÜ¼òµ¥Ê¹ÓÃACCESS£¬Data.mdb½¨Á¢Ò»¸ö±íArticle£¬Èý¸ö×ֶΣºID£¬Title£¬Content£»×Ô¶¯±àºÅ¡¢±êÌâ¡¢ÎÄÕÂÄÚÈÝ¡£
¶þ¡¢Config. ......
<%
function dt(v)
dim dy
dy=31
Marr=array(4,6,9,11)
yyyy=Year(Date())
mm=Month(Date())
dd=Day(Date())
if mm=2 then
if yyyy mod 400 or (yyyy mod 4=0 and yyyy mod v0=0) then
dy=29
else
dy=28
end if
else
for i=0 to 3
......