ASP×Ô¶¨Òå±êÇ©ÈçºÎʵÏÖÕýÔòÌæ»» £¿
±ÈÈçÒ»¸öÐÂÎŵÄÄÚÈÝΪ
##################################
AAAAAAµÄµÄµÄ {ss:company}
##################################
Õý³£ <%=news("content")%> Êä³öµÄÄÚÈÝΪ
AAAAAAµÄµÄµÄ {ss:company}
ûÓнâÎö{ss:company}
{ss:company}¾ÍÊÇÎÒ×Ô¶¨ÒåµÄ±êÇ©£¬ÎÒµÄϵͳ <%=configrs("company")%> ¾Í¿ÉÒÔÊä³ö¹«Ë¾Ãû
ÎÒÏëÈÃϵͳÊä³öµÄʱºòÓöµ½ {ss: ¿ªÍ·ºÍ } ½áβµÄʱºò×Ô¶¯½âÎöÕâ¸ö±êÇ©
°´ <%=configrs("±êÇ©Ãû")%>Êä³öÖµ
˵µÃÓÐЩÂÒ£¬µ«ÊÇ´ó¼ÒÒ»¿´Ó¦¸ÃÄÜÃ÷°×Òâ˼£¬ÇëÎÊÔõôʵÏÖ £¿
²âÊԵijÌÐò£º
VBScript code:
Set rs=server.CreateObject("adodb.recordset")
sql = "select top 10 * from table1 order by id desc"
rs.open sql,conn,1,1
If not Rs.BOF Then
do while not rs.eof
str="AAAAAAµÄµÄµÄ {ss:aaaa}"
Set re = New RegExp
re.Global = True
re.Pattern = "(.*?)\{ss:([^}]+)\}(.*?)"
a=re.Replace(str, "$1")
a=a&eval(re.Replace(str, "rs(""$2"")"))
a=a&re.Replace(str, "$3")
Response.Write a
response.Write "<br>"
rs.movenext
loop
end if
Â¥ÉÏÕýÈ·¡£
²»¶ÔŶ ÎÒµÄÒâ˼ÊÇ
±ÈÈçÎÒ´æ´¢ÔÚÊý¾Ý¿âµÄÄÚÈÝÊÇ
¡¡¡¡¡¡ {ss
Ïà¹ØÎÊ´ð£º
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......
<%On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.begintrans
conn.Open ("Driver={SQL Server};server=(local);uid=sa;database=student;pwd=")
......
µ±½áÊøÊ±¼ä´óÓÚ¿ªÊ¼Ê±¼äÔòÏÔʾδÍê³É
µ±½áÊøÊ±¼äСÓÚ¿ªÊ¼Ê±¼äÔòÏÔʾδ´ïµ½ÈÎÎñ
ûÓÐʱ¼äÔòÏÔʾÕýÔÚ½øÐÐÖÐ
asp´úÂëÓ¦¸ÃÔõôд
Èç:¿ªÊ¼Ê±¼ä ½áÊøÊ±¼ä & ......
ÔÚÒ»¸ö·¢±íÎÄÕµÄÒ³Ãæ£¬Èç¹ûÖÐ;¹Ø±ÕÒ³Ãæ£¬ÕâÌáʾÊÇ·ñ·ÅÆú±à¼£¬
Èç¹ûµã»÷·ÅÆú£¬ÔòתÏòÌîд·ÅÆúÔÒòµÄ½çÃæ£¬
Èç¹ûµã²»·ÅÆú£¬ÕâÍ£ÁôÔÚÔÒ³Ãæ£¬
Èç¹ûÊǵã»÷Ò³ÃæµÄ³¬¼¶Á´½Ó£¬Ôò´¥·¢Ê¼þʧЧ
ÈçºÎ±àд´ú ......
ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏß±à¼Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏß±à¼Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......