?? filemore.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">
<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">© 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 + -