<% '请不要修改以下函数，避免影响整个系统的正常运行！ function AlertMsg(sText) Response.Write "" end function function AlertMsgUrl(sText,sUrl) Response.Write "" end function function Html2Text(str) dim result if isNULL(str) then Html2Text="" exit function end if result=replace(str,"<","<") result=replace(result,">",">") result=replace(result,"
",chr(13)) result=replace(result,""",chr(34)) result=replace(result,"&","&") result=replace(result," ",chr(32)) Html2Text=result end function function Text2Html(str) dim result,l,i if isNULL(str) then Text2Html="" exit function end if l=len(str) result="" for i = 1 to l select case mid(str,i,1) case "<" result=result+"<" case ">" result=result+">" case chr(10) result=result+"" case chr(13) result=result+"
" case chr(34) result=result+""" case "&" result=result+"&" case chr(32) if i+1<=l and i-1>0 then if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then result=result+" " else result=result+" " end if else result=result+" " end if case chr(9) result=result+" " case else result=result+mid(str,i,1) end select next Text2Html=result end function function Html2Str(str) dim p1,p2,ss if isNULL(str) then Html2Str="" exit function end if ss=str p1=instr(1,ss,"<",1) while p1>0 p2=instr(p1+1,ss,">",1) if p2>0 then ss=replace(ss,mid(ss,p1,p2-p1+1),"",1) end if p1=instr(1,ss,"<",1) wend ss=replace(ss,"　　","　") Html2Str=ss end function 'DB="data/buyok30xdddasdf.asp" Response.Buffer=True session.timeout=30 'on error resume next SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" SQL_inj = split(SQL_Injdata,"|") If Request.QueryString<>"" Then For Each SQL_Get In Request.QueryString For SQL_Data=0 To Ubound(SQL_inj) if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then Response.Write "" Response.end end if next Next End If sub aspsql() SQL_injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" SQL_inj = split(SQL_Injdata,"|") If Request.Form<>"" Then For Each Sql_Post In Request.Form For SQL_Data=0 To Ubound(SQL_inj) if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then response.write "" response.end end if next next end if If Request.QueryString<>"" Then For Each SQL_Get In Request.QueryString For SQL_Data=0 To Ubound(SQL_inj) if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then response.write "" response.end end if next Next end If end sub sub buyok_check_path() server_v1=lcase(Cstr(Request.ServerVariables("HTTP_REFERER"))) server_v2=lcase(Cstr(Request.ServerVariables("SERVER_NAME"))) if mid(server_v1,8,len(server_v2))<>server_v2 then response.write "" response.end end if end sub On Error Resume Next Set Conn=Server.CreateObject("Adodb.Connection") strConn="Driver={Microsoft Access Driver (*.Mdb)};Pwd=;Dbq=" & Server.MapPath("db/article.asp") Conn.Open strConn %><% set rs=server.createobject("adodb.recordset") sql="select * from const" rs.open sql,conn,1,1 if not rs.eof then Application("WebName")=rs("WebName") Application("WebUrl")=rs("WebUrl") Application("WebEmail")=rs("WebEmail") Application("Copyright")=rs("Copyright") Application("Ver")=rs("Ver") Application("Logo")=rs("Logo") Application("Banner")=rs("Banner") Application("BannerUrl")=rs("BannerUrl") Application("Max_List")=rs("Max_List") Application("Max_GoodList")=rs("Max_GoodList") Application("Max_FocusList")=rs("Max_FocusList") Application("Max_picList")=rs("Max_picList") Application("Placard")=rs("Placard") end if WebName=Application("WebName") WebUrl=Application("WebUrl") WebEmail=Application("WebEmail") Copyright=Application("Copyright") Ver=Application("Ver") Logo=Application("Logo") Banner=Application("Banner") BannerUrl=Application("BannerUrl") Max_List=Application("Max_List") Max_GoodList=Application("Max_GoodList") Max_FocusList=Application("Max_FocusList") Max_picList=Application("Max_picList") Placard=Application("Placard") rs.close set rs=nothing %>

目前位置：我说我的 → 全部文章 → (繁體中文)

<% dim count set rs=server.createobject("adodb.recordset") sql = "select * from Nclass order by Nclass_id asc" rs.open sql,conn,1,1 %>

文章搜索:

<% sql = "select top 6 * from article where indexpic<>'' order by news_ID desc" rs.open sql,conn,1,1 do while not rs.eof Response.Write "

" rs.movenext loop rs.close %>


	视频链接：	2003年6月10日《艺术人生》之《打开问号，了解陈坤》 2003年7月19日《影视俱乐部》之《陈坤的味道》
	©2004-2010 ICHENKUN. All rights reserved