<%@ 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"),"81")=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)通會員</title>
<%
IF request("action")="save" Then
call save()
Else
call main()
End If
sub main()
if not isEmpty(request("id")) then
eid=request("id")
else
eid=1
end if
Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select * from expo where id="&eid&""
rs.open sql,conn,1,1
%>

<FORM action=set.asp method=POST name=form1>
<INPUT name=action type=hidden value="save">
<INPUT name=eid type=hidden value="<%=eid%>">
<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è)置展會信息屬性</font></strong></td>
</th>
<TR>
<TD class=forumRow>
<INPUT name=tj type=checkbox id="tj" value="01" <%if instr(rs("tj"),"01")<>0 then response.write "checked"%>> 
網(wǎng)站首頁推薦</TD>
<TD class=forumRow>
<INPUT name=tj type=checkbox id="tj" value="02" <%if instr(rs("tj"),"02")<>0 then response.write "checked"%>> 
展會首頁推薦</TD>
</TR>
<TR>
<TD class=forumRow>
<INPUT name=tj type=checkbox id="tj" value="03" <%if instr(rs("tj"),"03")<>0 then response.write "checked"%>> 
展會小類推薦</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,tj from expo where id="&request("eid")&""
rs.open sql,conn,3,3
if request("qx")<>"" then
rs("tj")="0"
else
rs("tj")=request("tj")
end if
rs.update
response.write"<SCRIPT language=JavaScript>alert('設(shè)置展會信息推薦成功！');"
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>