style.asp

来自「管理登录system 管理员：admin 密码：admin888 数据」· ASP 代码 · 共 20 行

<!--#include file="conn.asp"-->
<%
    Vt=Request.ServerVariables("QUERY_STRING")
    Vcome=RIGHT(Vt,LEN(Vt)-15)

    StyleD=Cint(trim(request.QueryString("StyleD")))
if  StyleD<>"" then
    set rsD=Server.CreateObject("Adodb.Recordset")
    sqlD="select * from StyleD where id="&StyleD&"" 
    rsD.open sqlD,conn,1,1	
    
    StyleD=rsD("StyleD")
    Response.Cookies("ProStyle")=StyleD
    if vcome="" then
       response.redirect request.servervariables("http_referer")
    else
       response.Redirect vcome
    end if
end if
%>