
asp里如何把response.write里的代码改成数据库里的图像输出显示,代码在内。
response.write"<li><ahref=""sd_show.asp?id="&rsDe1("id")&"""target=""_blank""title=""...
response.write "<li><a href=""sd_show.asp?id="&rsDe1("id")&""" target=""_blank"" title="""&rsDe1("sd_Title")&""" class=""wdys"&rsDe1("sd_se")&""">"&rsDe1("sd_Title")&"</a></li>"
这段代码里最后输出显示的是数据库里的sd_Title。如何改成输出数据库的图像“sd_logo”,并指定图像的大小,谢谢! 展开
这段代码里最后输出显示的是数据库里的sd_Title。如何改成输出数据库的图像“sd_logo”,并指定图像的大小,谢谢! 展开
1个回答
展开全部
<%
response.write "<li><a href='sd_show.asp?id="&rsDe1("id")&"' target='_blank' title='"&rsDe1("sd_Title")&"' class='wdys"&rsDe1("sd_se")&"'>"
%>
<img src="readdbfile.asp?id=<%=rsDe1("id")%>" width="图宽" height="l图高">
<%response.write "</a></li>"%>
以下是readdbfile.asp的代码
<!--#include file="conn.asp"-->
<%
set rs=Server.CreateObject("adodb.recordset")
rs.Open "select * from FileInfo where id="&Request.QueryString("id"),conn,1,1
if rs.eof and rs.bof then
Response.Write "没有找到该文件"
else
if IsNull(rs("sd_logo")) then
Response.Write "文件为空或没有资料"
else
Response.BinaryWrite rs("sd_logo")
end if
end if
rs.Close
set rs=nothing
%>
response.write "<li><a href='sd_show.asp?id="&rsDe1("id")&"' target='_blank' title='"&rsDe1("sd_Title")&"' class='wdys"&rsDe1("sd_se")&"'>"
%>
<img src="readdbfile.asp?id=<%=rsDe1("id")%>" width="图宽" height="l图高">
<%response.write "</a></li>"%>
以下是readdbfile.asp的代码
<!--#include file="conn.asp"-->
<%
set rs=Server.CreateObject("adodb.recordset")
rs.Open "select * from FileInfo where id="&Request.QueryString("id"),conn,1,1
if rs.eof and rs.bof then
Response.Write "没有找到该文件"
else
if IsNull(rs("sd_logo")) then
Response.Write "文件为空或没有资料"
else
Response.BinaryWrite rs("sd_logo")
end if
end if
rs.Close
set rs=nothing
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询