📄 service_display.asp
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<!-- #include file="func.inc.asp" -->
<%
keyno = Request.QueryString("keyno")
if not isnumeric(keyno) or keyno = "" then response.end
set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr
sql = "select * from miscell where state='1' and keyno="&keyno
rs.Open sql,cn,0,3,1
if not rs.EOF then
title=trim(rs("title"))
content=trim(rs("content"))
classcode=rs("classcode")
picflag=rs("picflag")
picflag2=rs("picflag2")
flag=rs("flag")
baseclass=rs("baseclass")
creadate=rs("creadate")
rs("querycount")=rs("querycount")+1
picalign=trim(rs("picalign"))
infocount=rs("infocount")
rs.Update
else
Response.End
end if
rs.Close
%>
<!-- #include file="begin.asp" -->
<table width="1002" height="137" border="0" cellpadding="0" cellspacing="0" background="images/top_15.jpg">
<tr>
<td width="779"><img src="images/AA.jpg" width="779" height="137"></td>
<td width="223"> </td>
</tr>
</table>
<table width="1002" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="162" valign="top" bgcolor="#F4F4F4"> <table width="162" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="31" background="images/index4_09.jpg"> </td>
</tr>
<tr>
<td height="5" align="right" bgcolor="#FFFFFF"> </td>
</tr>
<%
sql = "select classcode,classname from miscell_class where baseclass='"+baseclass+"' and flag='0' order by sortnum"
rs.open sql,cn,0,1,1
do while not rs.EOF
%>
<tr>
<td height="28" align="right" bgcolor="#FFFFFF"> <table width="131" height="21" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="21" background="images/kate.jpg"> <a href="service.asp?classcode=<%=rs("classcode")%>" class="A2">- <%=trim(rs("classname"))%></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" bgcolor="#E5E5E5"> </td>
</tr>
<%
rs.MoveNext
loop
rs.Close
%>
<tr>
<td height="5" bgcolor="#FFFFFF"></td>
</tr>
</table></td>
<td width="617" valign="top" background="images/index4_15.jpg">
<table width="617" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="13" height="31" background="images/index4_11.jpg"><img src="images/list2.jpg" width="5" height="31"></td>
<td width="604" valign="bottom" background="images/index4_11.jpg"> <table width="30%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12%"><img src="images/list.gif" width="14" height="13"></td>
<td width="88%">销售服务</td>
</tr>
<tr>
<td height="4" colspan="2"> </td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" align="center" valign="top"><table width="463" height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
</td>
</tr>
</table>
<table width="93%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center"><font size="3"><strong><%=title%></strong></font></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"> </td>
</tr>
<tr>
<td height="5" align="center" bgcolor="#f5f5f5">
</td>
</tr>
<tr>
<td align="center"> <table width="97%" border="0" cellspacing="5" cellpadding="4">
<tr>
<td>
<%
if infocount > 0 then
sql = "select * from miscell_info where miscellno="&keyno&" order by sortnum"
rs.Open sql, cn, 0, 1, 1
do while not rs.EOF
if rs("picflag")="1" then
if rs("picalign") = "center" then
%>
<div align=center>
<%if rs("picflag2")="1" then%>
<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0"></a>
<%else%>
<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0">
<%end if%>
</div>
<%if rs("flag")="1" then%>
<div align=center><%=trim(rs("title"))%></div>
<%end if%>
<%
else
if rs("picflag2") = "1" then
%>
<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0" align=<%=rs("picalign")%>></a>
<%else%>
<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0" align=<%=picalign2%>>
<%
end if
end if
end if
Response.Write(checkstr(trim(rs("content")),"1")&"<br>")
rs.MoveNext
loop
rs.Close
else
if picflag="1" then
piccode="miscell"
if picflag2="1" then piccode="miscell2"
if picalign="center" then
%>
<center><img src="admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0"></center><br>
<%else%>
<img src="admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0" align="<%=picalign%>"><br>
<%
end if
end if
Response.Write checkstr(content,"1")
end if
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" align="center" bgcolor="#CCCCCC"> </td>
</tr>
<tr>
<td height="5" bgcolor="#f5f5f5"> </td>
</tr>
<tr>
<td height="20"> <img src="images/jt.gif" width="23" height="11"><a href="about.asp" class="A4">合肥锋凯数码科技有限公司</a></td>
</tr>
<tr>
<td align="right"><table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td><img src="images/eee.gif" width="20" height="20"></td>
<td><a href="service.asp?classcode=<%=classcode%>" class="A4">返回列表</a></td>
<td><img src="images/eee.gif" width="20" height="20"> </td>
<td><a href="javascript:window.print()" class="A4">打印本页</a></td>
<td><img src="images/eee.gif" width="20" height="20"></td>
<td> <a href="javascript:self.close();" class="A4">关闭窗口</a></td>
<td width="20"> </td>
<td width="20"><a href="#top"><img src="images/TIME.jpg" width="31" height="29" border="0"></a></td>
</tr>
</table></td>
</tr>
</table>
<BR></td>
</tr>
</table>
</td>
<td width="223" valign="top" background="images/list.jpg">
<!-- #include file="inc_hot.asp" //-->
</td>
</tr>
</table>
<!-- #include file="end.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -