📄 xiangmwjnrright.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
a:link { color:#FFFFFF;text-decoration:none}
a:hover {color:#666666;}
a:visited {color:#000000;text-decoration:none}
td {FONT-SIZE: 9pt; COLOR: #FFFFFF; FONT-FAMILY: "宋体"}
img {filter:Alpha(opacity:100); chroma(color=#FFFFFF)}
</style>
<META content="MSHTML 6.00.2900.2627" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#fbf9f0 leftMargin=0 topMargin=0 marginheight="0"
marginwidth="0">
<!--#include file="Global.asp" -->
<%
'设置文件的大小及MIME类型
' Function SetForDisplay(field, contentType)
' contentType = LCase(trim(contentType))
' nFieldSize = field.ActualSize
' bytes = field.GetChunk(nFieldSize)
' Session("Bytes") = bytes
' Session("Type") = contentType
' End Function
%>
<% dim rs
strSQL="select * from xiangmwj where id="&request("id")
set rs=server.CreateObject("adodb.recordset")
rs.Open strSQL,conn,1,3
sj=request("sj")
'此处下载Word文档，将mime类型设置为"application/msword"
'SetForDisplay rs("fuj1"), "image/pjpeg"
'Set rs= Nothing
' ssj1=Server.MapPath("\bangong\"&rs("dianzwjm")&"\"&rs("dianzwjm")&"p1.jpg")
if sj>0 then
ssj1="wjfj/xiangmwj/"&rs("dianzwjm")&"/"&rs("dianzwjm")&"p"&request("sj")&".jpg"
else
ssj1="wjfj/xiangmwj/"&rs("dianzwjm")&"/"&rs("dianzwjm")&"p1.jpg"
end if
' response.write(ssj1)
' response.end
%>
<%
'读取数据库中保存的内容
' response.Expires = 0
' response.Buffer = True
' response.Clear
'response.contentType = Session("Type")
' response.BinaryWrite Session("Bytes")
' Session("Type") = ""
' Session("Bytes") = ""
' response.End
%></BODY>
<table border="0" width="100%" id="table1">
<tr>
<td>
<p align="center">
<img border="0" src=<%=ssj1%> ></td>
</tr>
</table>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -