ʹÓÃ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
Ïà¹ØÎĵµ£º
Õª×Ô£ºhttp://zxlh168.blog.163.com/blog/static/7778614020098168638654/
<%
’FSO×é¼þÃû³Æ
dim FSObject
FSObject="Scripting.FileSystemObject"
’=========================================================
’¡ôÊÇ·ñÖ§³Ö×é¼þ
’=============================================== ......
ASPÊÇ΢Èí¹«Ë¾ÊµÏÖ¶¯Ì¬ÍøÒ³µÄÒ»ÖÖ¼¼Êõ¡£
ASPÖ§³ÖһЩ½Å±¾ÓïÑÔ£¬Ö÷ÒªÒÔVBScriptΪÖ÷¡£
ÓëASPÏà±È½Ï£¬Ä㻹¿ÉÒÔÑ¡ÔñÁíÒ»Öпª·ÅÔ´´úÂë±à³ÌÓïÑÔ——PHP£¬PHP¿ÉÒÔÔËÐÐÔÚ¶àÖÖ²Ù×÷ϵͳÏ£¬ÆäÖаüÀ¨LinuxºÍwindows¡£
ËäÈ»ASPÊÇÒ»ÖÖ²»´íµÄ¼¼Êõ£¬µ«´Ó³¤Ô¶¿¼ÂÇÎÒÏàÐÅPHPÔÚ½«À´µÄ¼¼ÊõÁìÓòÀï»áÓв»·²µÄ±íÏÖ¡£
ÎÒÈÏΪÓÐÆß¸ ......
1£ºÉÏ´«Ò³Ãæ
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="te ......
<%@Language="VBScript" CodePage="65001"%>
<% option explicit%>
<% on error resume next %>
<% Session.CodePage="65001" %>
<% response.charset="utf-8" %>
<%
dim conn,connstr,sql,rs,rs2,rs3
connstr="dbq=" & server.MapPath("../data091003/data09 ......
ÔÚ½« ASP.NET Web ²¿¼þµÄ¼¯³É¿Ø¼þ¼¯ÖеĿؼþ°üÀ¨ÔÚÍøÒ³ÖÐʱ£¬ÕâЩ¿Ø¼þ½«×ñÊØ¸ÃÒ³µÄ¹æÔò£»¾ßÌå¶øÑÔ¾ÍÊÇ£¬ÕâЩ¿Ø¼þ½«ÔÚ¸ÃÒ³µÄÉúÃüÖÜÆÚÄÚÔËÐС£
ÿ¸öÍøÒ³¶¼¾ßÓÐÒ»¸öÉúÃüÖÜÆÚ£¬ÍøÒ³ÔÚÆäÉúÃüÖÜÆÚÄÚ½«Ö´ÐÐһϵÁд¦Àí²½Öè¡£ÕâЩ²½Öè°üÀ¨³õʼ»¯¡¢´´½¨¿Ø¼þ¡¢»¹ÔºÍά»¤×´Ì¬¡¢ÔËÐÐʼþ´¦Àí³ÌÐò´ú ......