<%@ codepage ="936" %>
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
if instr(Request.Cookies("globalec")("masterflag"),"63")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<link rel="stylesheet" type="text/css" href="../css/style.css">
<title>設(shè)置推薦商貿(mào)通會(huì)員</title>
<%
IF request("action")="save" Then
call save()
Else
call main()
End If
sub main()
if not isEmpty(request("id")) then
userid=request("id")
else
userid=1
end if
Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select * from productshow where id="&userid&""
rs.open sql,conn,1,1
%>

<FORM action=set.asp method=POST name=form1>
<INPUT name=action type=hidden value="save">
<INPUT name=userid type=hidden value="<%=userid%>">
<table width="400"  border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<tr>
<th height="20" colspan="3" class="tableHeaderText" align="center"> 
<strong>
<font color="#FFffff">設(shè)置產(chǎn)品屬性</font></strong></td>
</th>
<TR>
<TD class=forumRow>
<INPUT <%if instr(rs("zsbz"),"01")<>0 then response.write "checked"%> name=tjbz type=checkbox value="01"> 
網(wǎng)站首頁推薦</TD>
<TD class=forumRow>
<INPUT <%if instr(rs("zsbz"),"02")<>0 then response.write "checked"%> name=tjbz type=checkbox value="02"> 
銷售首頁推薦</TD>
</TR>
<TR>
<TD class=forumRow>
<INPUT <%if instr(rs("zsbz"),"03")<>0 then response.write "checked"%> name=tjbz type=checkbox value="03"> 
采購首頁推薦</TD>
<TD class=forumRow>
<INPUT name=qx type=checkbox value="0"> 
取消所有推薦
</TD>
</TR>
<TR>
<TD height="40" align="center" colspan=2 class=forumRowHighlight>
<INPUT type=submit value='確 定 設(shè) 置' name=Submit2> 
</TD>
</TR>
</TABLE>
</form>
<%
end sub
sub save()
set rs=server.createobject("adodb.recordset")
sql="select id,zsbz from productshow where id="&request("userid")&""
rs.open sql,conn,3,3
if request("qx")<>"" then
rs("zsbz")=""
else
rs("zsbz")=request("tjbz")
end if
rs.update
response.write"<SCRIPT language=JavaScript>alert('設(shè)置產(chǎn)品推薦成功！');"
response.write"javascript:window.close();</script>"
response.end
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script>
function window.onbeforeunload(){
window.opener.location.reload()
}
</script>
<!--#include file="../copy.asp"-->
</body></html>