[P]<%
dim com,rs,sql,k,i,j,b
com=trim(request("m"))
jle=request("n")[/P][P]set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [jle_shop] where username='"&com&"'"
rs.open sql,conn,1,3
if rs.bof or rs.eof then
response.redirect "/"
end if
if rs.eof then
response.write "<script language=JavaScript>" & chr(13) & "alert('此为快速发布信息！没有相关用户资料！');" & "history.back()" & "</script>"
response.end
end if
if rs("yz")<>1 then
response.write "<script language=JavaScript>" & chr(13) & "alert('我们将在２４小时内审核通过您的申请！若超过４８小时没有通过，请检查您的注册信息或联系本站');" & "history.back()" & "</script>"
response.end
end if
if rs("vip")<>"1" then
response.redirect "../shop_ohno.asp?m="&com&""
response.end
end if
rs("tong")=rs("tong")+1
rs.update
com=rs("com")
comn=rs("username")
dianhua=rs("dianhua")
plcs=rs("plcs")
tong=rs("tong")
dim n,rs0
set rs0=server.createobject("adodb.recordset")
set rs0=conn.execute("select count(id) from [jle_info] where username='"&com&"'")
n=rs0(0)
rs0.close
'商家模板自动获取
dim rsmb,sqlmb
username=request.cookies("jle")("username")
set rsmb=server.createobject("adodb.recordset")
sqlmb="select * from [jle_shop] where username='"&username&"'"
rsmb.open sqlmb,conn,1,1
mb=trim(rsmb("mb"))
rsmb.close
set rsmb=nothing[/P][P]%> [/P][P] [/P][P]360检测是这样的文件有漏洞[/P] | 
