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
Ïà¹ØÎÊ´ð£º
ÎÒÃÇÓÐÒ»¸öÍøÕ¾Ä£°å£¬www.c111.com.cn,Ï£ÍûÐÞ¸ÄһЩµØ·½£º
1£©µã»÷×ó²à¡°·þÎñÆ·ÅÆ¡±µÄÆäÖÐÒ»¸öС·ÖÀ࣬Èç¡°×ãÇò¡±£¬½çÃæµÄÓÒ²à¾Í³öÏÖÈçwww.c111.com.cn/1.jpg£¬µã»÷1.jpgÉÏ·½µÄÆäÖÐÒ»¸öÆ·ÅÆlogo£¬ÏÂÃæ¾Í³öÏÖÏà¹ØµÄÍ ......
×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......
ÎÒµÄ網頁´ú碼為ASP語ÑÔ,驗證·½Ê½為ϵ統×Ô帶µÄWINDOW驗證ģʽ.
現ÔÚÎÒÈç¹ûÒªÔÚASP´ú碼ÖÐ獲È¡當ǰµÄµÇÈëÈË ......
Çë¸÷λ¸ßÊÖ°ï½â¾ö,¼±!!!
<script language="JavaScript" type="text/javascript">
function CheckInput(){
if (document.frm.loginname.length =0){
alert('ÇëÕý ......
<%
Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof
......