gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/admin/ajaxs.asp

    <!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/AutoKey.asp"-->
<%
Dim Action
Action=Request("Action")
Select Case Action
 Case "GetTags" GetTags
End Select

'取关键词tags
Sub GetTags()
 Dim Text:Text=UnEscape(lcase(Request("Text")))
 If Text<>"" Then
	 Response.Write Escape(cn_split(text,6))
 End If
End Sub
%>