
<%

wooolid=request.QueryString("m")

wooolid = YeSqlStr(ClearSQL(wooolid),3)



If wooolid = "" or not isnumeric(wooolid) Then
	Call WriteErr("参数错误","1")
End If

Call ConnectionDatabase()








str_sql = "Select * From [L_woool] where id="&wooolid&" order by id desc"
Set rsq = conn.execute(str_sql)

if rsq.eof then
	Call WriteErr("抱歉,此充值服务不存在!","1")
else
GameID=rsq("GameID")
ip=rsq("ip")
key=rsq("wkey")
post=rsq("post")
'url="http://"&ip&":"&post&"/1|"&key&"|"&key
'Rvalue=GetBody(url)
'response.Write(Rvalue)
'response.Write(url)
'Response.End()


end if


view_path="fenqu/"&wooolid&".html"
If IsExists(view_path)=True Then 


	if GameID <> 0 then
	'response.write "开始生成"
	call createtypelist(wooolid)
'response.write "<script>var   AutoRefresh=setTimeout('window.location.href=window.location.href',0);</script>"
response.write "<meta http-equiv=""refresh"" content=""0"">"
	Else
	template_class = FSOFileRead(view_path)
	response.write template_class
	'response.Redirect view_path
	end if


Else 
call createtypelist(wooolid)
'response.write "<script>var   AutoRefresh=setTimeout('window.location.href=window.location.href',0);</script>"
response.write "<meta http-equiv=""refresh"" content=""0"">"
'response.Redirect view_path
End If 
call DBConnEnd
%>