📄 list_sale.asp
字号:
<!--#include file="../checkuser.asp" -->
<%
m_ver = Trim(request("ver"))
if m_ver="cn" then
tmpstr_t="[中文版]"
elseif m_ver="en" then
tmpstr_t="[英文版]"
else
response.write "错误访问页面，请重试"
response.end
End If%>
<!--#include file="../../Include/db_conn.asp" -->
<!--#include file="../../Include/pub_func.asp" -->
<%
set myrs=server.CreateObject("adodb.recordset")
sqlstr="select * from ys_sale where version='"&m_ver&"' order by datetime desc"
myrs.Open sqlstr,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公司信息管理</title>
<script language="javascript">
function count_checked_items() {
var number_checked=0;
var box_count=document.Form1.id.length;
if ( box_count==null ) {
if ( document.Form1.id.checked==true ) {
number_checked=1;}else {
number_checked=0;}}
else {
for ( var i=0; i < (box_count); i++ ) {
if ( document.Form1.id[i].checked==true ) {
number_checked++;}}}return number_checked;}
function isin() {
for( var i=0; i < (document.Form1.isindex.length); i++ ){
if (document.Form1.isindex[i].checked==true){
isin=true;
}
}
if (isin==true){
document.Form1.edit_type.value="isindex";
document.Form1.submit();
}
else
alert('请您先选择要设置成首页的信息!');
return false;
}
</script>
<link href="../include/styles.css" rel="stylesheet" type="text/css">
</head>
<body>
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" width="90%" align="center">
<tr>
<td width="100%" height="35" align="center" bgcolor="#225597"><font color="#FFFFFF">网络营销管理<%=tmpstr_t%></font></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">
<form name="Form1" method="post" action="add_sale_ok.asp" >
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr bgcolor="#CCCCCC">
<td width="332" height="25" align="center">营销范围</td>
<td width="118" align="center">设置为默认首页</td>
<td width="177" align="center">操作</td>
</tr>
<%
if not myrs.eof then
do while not myrs.eof
%>
<tr bgcolor="<%=color%>">
<td height="25" align="center"><a href="view_sale.asp?saleid=<%=myrs("id")%>" target=_blank ><%=myrs("title")%></a></td>
<td align="center"><input name="isindex" type="radio" value="<%=myrs("id")%>" <%=isChecked_m("1",myrs("isindex"))%> onclick="javascript:isin();"></td>
<td align="center"><a href="edit_sale.asp?id=<%=myrs("id")%>&ver=<%=m_ver%>">修改</a>||<a href="add_sale_ok.asp?id=<%=myrs("id")%>&ver=<%=m_ver%>&edit_type=del" onClick="return confirm('是否真的删除该信息?');">删除</a></td>
</tr>
<%
if color="" then
color="#f0f0f0"
else
color=""
end if
myrs.MoveNext
loop
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align=center >
<input type="hidden" name="edit_type" ID="Hidden1" >
<input type="hidden" name="ver" value="<%=m_ver%>" >
</td>
</tr>
</table>
</form>
<%
else
Response.Write "<p align=center><span>对不起!目前没有信息!<br><a href='javascript:history.back();'>[返回]</a></span></p>"
end if
%>
</td>
</tr>
</table>
</body>
</html>
<%
myrs.Close
set myrs=nothing
call closedb()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -