<!--#include file="../../../../p_inc/Include_func.asp"-->
<!--#include file="../../../../p_inc/openconn.asp"-->
<!--#include file="../../../../Members/config.asp"-->

<%
IF Not ChkPost() Then
	'response.Redirect G_error_page_1
	'response.End()
End IF
'输出数组,去掉重复的字段
Function PrintArrayx(str,s)
	Dim str2,i,str3,str3_t
	str=ForMatStr(str,s)
	str2=split(str,s)
	For i=Lbound(str2) To Ubound(str2)
		str3_t=str2(i)
		IF instr(s&str3&s,s&str3_t&s)=0 Then
			str3=str3&str3_t&s
		End IF
	Next
	PrintArrayx=ForMatStr(str3,s)
End Function

Response.Buffer=True
v=request("v")
IF v="a" Then 
	response.contenttype="x-javascript;charset=gb2312"
	j=Request("j")
	Pstr=N_Fso.ReadAllTextFile(Add_Root_Dir("/template/"&G_moban&"/images/xingzuo/data/"&j&".js"))
	Response.Write Pstr
ElseIF v="b" Then
	response.contenttype="text/html;charset=gb2312"
	j=Request("j")
	Pstr=N_Fso.ReadAllTextFile(Add_Root_Dir("/template/"&G_moban&"/images/xingzuo/html/"&j))
	Response.Write Pstr	
End IF

%>
