<%
'Option Explicit
'response.buffer=true
'Response.Expires=0
'Response.Clear
dim query,cn,rs,strtitle,strimage,strpicture
dim intMax,intPage,intCount,strLink1,strLink2
boardid=boardid
strtitle = yhtp_title
intPage = request("page")
intPage = cint(intPage)
intMax = 8
' Change the HTTP header to reflect that an image is being passed.
set conn_rd=server.CreateObject("adodb.connection")
conn_rd.CursorLocation = 3
'call opendb(conn_rd,boardid,"ReadDB")
if auto_db=1 then
call opendb(conn_rd,boardid,"ReadDB")
'response.write "yyyyyyyyyyyyyyy"
else
call opendb2(conn_rd,boardid,ReadDB)
'response.write readdb
end if
query = "select * from " & xcpic & " where rid="& boardid &" and title = '" & strtitle & "' order by xh"
'response.write query
'response.end
set rs = Server.CreateObject("adodb.recordset")
'set rss = Server.CreateObject("adodb.recordset")
rs.Open query, conn_rd, 1, 1
'rss.Open query, sonn, 3, 3
'strid = ""
'do while rss.eof = false
'id = rss("id")
'strid = strid + cstr(id)
'strid = strid + ","
'rss.movenext
'loop
%>
万润科技首次公开发行A股网上路演
