日期:2014-05-17  浏览次数:20843 次

菜鸟问题:如何从数据库里读取表的某字段的图片地址
SQL   SERVER   2000数据库,要求从表里读取某个字段的图片地址和文字内容(限制在一定的字数范围内),并将图片和文字内容显示到网站首页上,请提供详细代码,解决立即给全分,只有50分了。

如某字段内容如下:
<P> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   日前,我单位被市政府评为2001-2005年全市宣传教育先进集体。 </P>
<P   align=center> <IMG   src= "/upfile/200731594624783.jpg "   border=0> </P>

------解决方案--------------------
Set Conn = Server.CreateObject( "ADODB.Connection ")
Conn.Open "Provider=SQLOLEDB;Server=local;Database=data;UID=sa;PWD= "**** "

sql= "select * from table where id= "&request( "id ")
rs.open sql,Conn,1,1

response.write( " <P> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "&left(rs( "内容字段 "),10)& " </P>
<P align=center> <IMG src= "&rs( "图片地址字段 ")& " border=0> </P> ")


------解决方案--------------------
楼上说得比较清楚了。
不过:
1、Conn.Open "Provider=SQLOLEDB;Server=local;Database=data;UID=sa;PWD= "**** "
星号前多了个双引号
2、left取长度对中文有问题,用下面这个函数。

function gotTopic(str,strlen)
if str= " " then
gotTopic= " "
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str, "&nbsp; ", " "), "&quot; ",chr(34)), "&gt; ", "> "), "&lt; ", " < ")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c> 255 then
t=t+2
else
t=t+1
end if
if t> =strlen then
gotTopic=left(str,i) & "... "
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic, " ", "&nbsp; "),chr(34), "&quot; "), "> ", "&gt; "), " < ", "&lt; ")
end function

------解决方案--------------------
你们理解错了吧

如某字段内容如下:
<P> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 日前,我单位被市政府评为2001-2005年全市宣传教育先进集体。 </P>
<P align=center> <IMG src= "/upfile/200731594624783.jpg " border=0> </P>

这个要用到正则表达式了,匹配
字段的内容怎么会这样的呢?