<% '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股网上路演
  首页 > 摇号抽签