📄 smartsales.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from smartsales where smartsalestype like '%"&request("smartsalestype")&"%' order by name",conn,1,1
all=rs.Recordcount
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>设计进度管理</title>
</head>
<body vlink="#48576C" link="#48576C" alink="#000000" bgcolor="#FFFFFF" topmargin="3">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><strong><font class=title>设计进度管理</font></strong> <a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=120, menubar=no, location=no, toolbar=no ,width=600, height=500','newsmartsales.asp?funtype=<%=request("smartsalestype")%>');"><img src="../images/button_new.gif" border=0></a></td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<%
dim connq
dim rsq
set connq=server.CreateObject("adodb.connection")
set rsq=server.CreateObject("adodb.recordset")
connq.Open connstring
rsq.Open "select smartsalestype,count(*) from smartsales group by smartsalestype",connq,1,1
if not rs.EOF then
j=1
Response.Write "<table cellspacing=1 bgcolor='#ffffff'><tr>"
do while not rsq.EOF
if rs("smartsalestype")=rsq("smartsalestype") then
Response.Write "<td height=18 align=center valign=center bgcolor='#FB0802'><font color='#ffffff'>"&rsq("smartsalestype")&"</font></td>"
else
Response.Write "<td height=18 align=center valign=center bgcolor='#4A699C'><a href=smartsales.asp?smartsalestype="&rsq("smartsalestype")&"><font color='#FFFFFF'>"&rsq("smartsalestype")&"</font></a></td>"
end if
if j mod 12=0 then Response.Write "</tr><tr bgcolor='#4A699C'>"
rsq.MoveNext
j=j+1
loop
Response.Write "</tr></table>"
end if
rsq.Close
set rsq=nothing
connq.Close
set onnnq=nothing
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
<tr bgcolor="efefef">
<td width="15%" height="12" align=center>菜单</td>
<td width="15%" align=center>功能</td>
<td width="35%" align=center>设计概要</td>
<td width="10%" align=center>开始时间</td>
<td width="5%" align=center>完成</td>
<td width="10%" align=center>完成时间</td>
<td width="10%" align=center>操作</td>
</tr>
<tr>
<%if all=0 then%>
<td bgcolor="#FFFFFF" align=center colspan="11">No Recorder</td>
<%end if%>
<%do while not rs.EOF%>
<td bgcolor="#FFFFFF" align=center><%=rs("name")%></td>
<td bgcolor="#FFFFFF" align=center><%=rs("funname")%></td>
<td bgcolor="#FFFFFF" align=left>
<%'if rs("description")<>"" then%>
<!--<textarea name="description" cols="40" rows="4" readonly><%=rs("description")%></textarea>
-->
<%'end if%><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=120, menubar=no, location=no, toolbar=no ,width=600, height=500','newsmartsales.asp?funtype=<%=request("smartsalestype")%>&id=<%=rs("id")%>&type=detail');">
<%if len(rs("description"))>20 then%><%Response.Write left(rs("description"),20)&"......"%><%else%><%Response.Write rs("description")%><%end if%>
</a></td>
<td bgcolor="#FFFFFF" align=center><%=rs("startdate")%></td>
<td bgcolor="#FFFFFF" align=center><%=rs("closeddate")%></td>
<td bgcolor="#FFFFFF" align=center>
<%if rs("closed") then Response.Write "是" else Response.Write "否"%>
</td>
<td bgcolor="#FFFFFF" align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=120, menubar=no, location=no, toolbar=no ,width=600, height=500','newsmartsales.asp?id=<%=rs("id")%>');">编辑</a>
<a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=220','../delete.asp?smartsalesid=<%=rs("id")%>');">删除</a></td>
</tr>
<%
rs.MoveNext
loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -