📄 filemore.asp

📁 全功能网上商城免费版

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Comm/conn.asp" -->
<html>
<head>
<title><%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" content="index,follow">
<meta name="Abstract" content="CycooShop">
<meta name="DC.Publisher" content="Cycoo Net Studio">
<link rel="stylesheet" href="shop.css" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center"><br><br>
<table border=0 width=95% ><tr><td align=center>
<%	'如果有超大图则显示按纽
		if request("ProdId")="" then
		response.write "没有指定产品！"
		else
			Set fileother=Server.CreateObject("ADODB.Recordset")
			prodid="select A.ProdId,A.FilePath,B.ProdName,B.Model from FileOther A,ProdMain B where A.ProdId=B.ProdId and A.ProdId='"&request("ProdId")&"'"
			fileother.Open prodid,conn,1,1
			if fileother.bof and fileother.eof then
				response.write "没有图片或者显示图片出错！请联系网站管理员 "
			else
				response.write "以下是产品：<b><font color=red> "&fileother("ProdName")&"["&fileother("Model")&"] </font></b>的图片<br><HR width=90% >"
				do while not fileother.eof
				response.write "<img src='"&fileother("FilePath")&"'><br><br>"
				fileother.movenext
				loop
			end if
		set fileother=nothing
		end if
		%>

<HR width=90% ><table align=center><tr bgcolor="#FFFFFF"> 
   <td align="center"><font color="#333333">&copy; 2003-2004 <B><%=siteurl%></B> <%=sitename%> 版权所有</font></td>
</tr>
</table>
  </td></tr></table></div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -