📄 view_sqtk.asp
字号:
<%@ codepage ="936" %>
<!--#include file="../../conn/dbconn2.asp" -->
<!--#include file="../Config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../wlyx/main10.css" rel="stylesheet" type="text/css">
</head>
<%
id=request("id")
sql="select * from sqtk where id="+cstr(id)
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if rs.recordcount=0 then
response.write "<p align='center'>对不起，没有您要查询的信息</p>"
else
%>
<body>
<TABLE width=540 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="100%"> <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD background=../../wlyx/images/7_d.gif
height=26 vAlign=bottom
width=253 style="font-size: 16px; color: #0000ff"> <strong>订
阅 情 况</strong></TD>
<TD vAlign=bottom> <TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR>
<TD bgColor=#ff9005 height=1 width="100%"><IMG
border=0 height=1 src="../../wlyx/images/1.gif"
width=1></TD>
</TR>
<TR>
<TD bgColor=#ffdf52 height=2 width="100%"><IMG
border=0 height=1 src="../../wlyx/images/1.gif"
width=1></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD background=../../wlyx/images/8_d.gif
width="96%">
<DIV align=center>
<CENTER>
<br>
<table width="545" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="525" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5">
<tr>
<td align="center"> </td>
</tr>
<tr>
<td align="center"> <table width="520" border="1" cellspacing="2" cellpadding="0">
<tr valign="top">
<td colspan="5"> <div align="center">
<table border=0 cellspacing=0 cellpadding=0 width=100%>
<tr>
<td align="center" bgcolor="#FFFFFF" style="font-size:10pt">
<table width="98%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td align="center" class="LL"><br>
会员<font color="#FF0000"> <%=rs("user")%> </font>目前订阅的邮件如下（选中的项），<br>
<br>
默认的邮件接收信箱为 <font color="#FF0000">
<%=rs("email")%> </font> 。<br>
<br>
</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><table width="98%" border="1" align=center cellpadding="1" cellspacing="2" bordercolor="#EEEEEE">
<tr bgcolor="#F6F6F6">
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"01")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="01" class="s06">
农林牧渔</td>
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"08")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="08" class="s06">
环境保护</td>
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"15")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="15" class="s06">
商业服务 </td>
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"22")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="22" class="s06">
电脑、软件 </td>
</tr>
<tr bgcolor="#F6F6F6">
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"02")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="02" class="s06">
服装、服饰</td>
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"09")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="09" class="s06">
玩 具</td>
<td align="left" style="font-size:10pt">
<input type="checkbox" <%if instr(rs("sptk"),"16")<>0 then response.write "checked"%> name="sqtk" value="16" class="s06">
家居用品</td>
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"23")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="23" class="s06">
礼品、工艺品 </td>
</tr>
<tr bgcolor="#F6F6F6">
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"03")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="03" class="s06">
安全、防护</td>
<td align="left" style="font-size:10pt">
<input type="checkbox" <%if instr(rs("sptk"),"10")<>0 then response.write "checked"%> name="sqtk" value="10" class="s06">
能源动力</td>
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"17")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="17" class="s06">
化 工 </td>
<td align="left" style="font-size:10pt">
<input <%if instr(rs("sptk"),"24")<>0 then response.write "checked"%> type="checkbox" name="sqtk" value="24" class="s06">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -