asp¾²Ì¬Éú³É£¬Î±¾²Ì¬
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!-- #include file="../configinc/conndb.asp"-->
<!--#include file="../configinc/function.asp"-->
<%
keys=request.QueryString("keys")
dim objXmlHttp,binFileData,objAdoStream
if request("action")="index" then
call indexhtml()
response.Write "ÒѸüРÊ×Ò³ Ò³Ãæ£¡"&"<br>"
elseif request("action")="message" then
call messagehtml()
response.Write "ÒѸüРÔÚÏßÁôÑÔ Ò³Ãæ£¡"&"<br>"
else
'============================ÁбíÒ³¿ªÊ¼======================================
ids=""
call lids(keys)
ids=keys&ids
set rsf=server.CreateObject("adodb.recordset")
rsf.open "select id from "&tables&" where lid in("&ids&") order by shijian desc",conn,1,1
do while not rsf.eof
strOut=ReadfromUTF(Server.MapPath("../")&"\asp\show_"&keys&".htm","utf-8")
'¶ÁÈ¡Êý¾ÝÐÅÏ¢
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select site from "&table&" where id="&keys&" ",conn,3,3
left_site=rs1("site")
rs1.close
set rs1=nothing
'ûÓзÖÀàµÄ×ó±ßÏÔʾ
leftxx=""
if shangjis(keys)=99 then
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select id,title from "&tables&" where lid="&keys&" ",conn,3,3
do while not rs1.eof
leftxx=leftxx&left_site
leftxx=Replace(leftxx,"{left_id}",rs1("id"))
leftxx=Replace(leftxx,"{left_title}",rs1("title"))
Ïà¹ØÎĵµ£º
1.ÈçºÎÓÃAspÅжÏÄãµÄÍøÕ¾µÄÐéÄâÎïÀí·¾¶
´ð£ºÊ¹ÓÃMappath·½·¨
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath("\")% >
......
¹¦ÄÜ×÷ÓãºASP²úÉú²»Öظ´µÄËæ»úÊý£¨Ä£ÄâÓÎÏ·Ï´ÅÆ£©
<%
function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum ......
×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.Õ ......
ʹµØÖ·欄URL¹Ì¶¨£¬隱²Ø參數£º
<head>
</head>
<frameset>
<frame name="" src="Login.aspx" target="Login.aspx" scrolling="auto" noresize></frame>
<nofr ......
×¢£º±¾È˰²×°µÄÊÇWindows 7 RC 7100 32λÖÐÎÄÆì½¢°æ ¡£
ÔÚWindows 7ÏÂÃæIIS7µÄ°²×°·½·¨£º
Ò»¡¢½øÈëWindows 7µÄ ¿ØÖÆÃæ°å
£¬Ñ¡Ôñ×ó²àµÄ ´ò¿ª»ò¹Ø±ÕWindows¹¦ÄÜ
¡£
¶þ¡¢ÏÖÔÚ³öÏÖÁ˰²×°Windows¹¦ÄܵÄÑ¡Ïî²Ëµ¥
£¬×¢ÒâÑ¡ÔñµÄÏîÄ¿£¬ÎÒÃÇÐèÒªÊÖ¶¯Ñ¡Ôñ
ÐèÒªµÄ¹¦ÄÜ£¬ÏÂÃæÕâÕÅͼƬ°ÑÐèÒª°²×°µÄ·þÎñ¶¼ÒѾѡÔñÁË£¬´ó¼Ò¿ÉÒÔ°´ÕÕ ......