<!--#include file="inc/conn.asp"-->
<!-- #include file="inc/inc_login.asp"-->
<%
call ConnectionDatabase
'Response.Buffer = True 
'Response.ExpiresAbsolute = Now() - 1 
'Response.Expires = 0 
'Response.CacheControl = "no-cache" 
'Response.AddHeader "Pragma", "No-Cache"

If request.cookies("Admin_Username") <> "" And request.cookies("Admin_PassWord") <> "" Then
	set Rs=GrateRs("select * from H_admin where username like '"&trim(request.cookies("Admin_UserName"))&"'",1)
	If Not Rs.Eof Then
		If Rs("password") <> request.cookies("Admin_PassWord") Then
			Call MSGShow(0)
		End If
      else
        Call MSGShow(0)
	End If	
else
	Call MSGShow(0)
End If

Sub MSGShow(Er)

response.Cookies("Admin_UserName") = ""
response.Cookies("Admin_PassWord") = ""
Response.Cookies("log")(CacheName&"admik")=""

    response.write "<script type='text/javascript'>top.location='/';</script>"

    response.end
Response.End
End Sub


Sub payoption(x)
	Dim Rs
	Response.Write "<option value='0' >全部</option>"
	set Rs=GrateRs("select id,Pname from H_plist where fenzu<>0 order by paixu",2)
	do while not Rs.eof
		Response.Write "<option value='"&Rs("id")&"'"
		If Rs("id")=x Then Response.Write " selected "
		Response.Write ">"&Rs("Pname")&"</option>"
		Rs.movenext
	loop 
End sub

Sub payoption2(x)
    Response.Write("<option value=""46ka""")
	if x="46ka" then Response.Write(" selected ")
	Response.Write(">46卡类支付</option>")
	Response.Write("<option value=""15173""")
	if x="15173" then Response.Write(" selected ")
	Response.Write(">15173卡类支付</option>")
    Response.Write("<option value=""ebao""")
	if x="ebao" then Response.Write(" selected ")
	Response.Write(">易宝</option>")
    Response.Write("<option value=""51ka""")
	if x="51ka" then Response.Write(" selected ")
	Response.Write(">51卡类支付</option>")
    Response.Write("<option value=""kbpay""")
	if x="kbpay" then Response.Write(" selected ")
	Response.Write(">快宝支付</option>")
    Response.Write("<option value=""95588""")
	if x="95588" then Response.Write(" selected ")
	Response.Write(">天源网络</option>")
    Response.Write("<option value=""tenpay""")
	if x="tenpay" then Response.Write(" selected ")
	Response.Write(">财付通</option>")
End sub
%>



