Procedures for working with pictures and articles

Cheng written, able to perform but no collation, if you look at the example to see the WWW.HIFI-CHINA.COM in the display of the article. The pictures are randomly positioned to meet different alignment, border and drawing requirements. And with the UBB support module, but here is removed:

<script Language=vbscript runat=server>

function Getarticle (Articleid,showtitle,prubb)
Showpicture=true
Articletext= ""
Set articledbc = Server.CreateObject ("Adodb.command")
Set ars = Server.CreateObject ("Adodb.recordset")
Ars.open "SELECT * from Article_comm where article_id=" & Articleid,session ("DS"), 1,1
If not ars.eof then
Article_id=ars ("article_id")
Article_title=rtrim (ARS ("title"))
Article_comm=server.htmlencode (ARS ("comm"))
Article_date=datevalue (ARS ("Adddate"))
Ars.close
Articledbc. Activeconnection=session ("DS")
articledbc.commandtext= "UPDATE article_comm SET showcounter = showcounter + 1, lastread = GETDATE () WHERE (article_id =" & article_id & ")"
Articledbc.execute
If Showpicture Then
Ars.open "Select article_pic.article_id, article_pic.pic_id, Article_pic.loctrate, Article_pic.align, Article_ PIC.SHOW_SQ, Article_pic.style, Piclab.picurl, piclab.pic_sq, Piclab.pic_comm, piclab.pic_linkout from Article_pic INNER JOIN piclab on article_pic.pic_id = piclab.pic_id where (article_id = ' & article_id & ') Order by Loctrate " , Session ("DS"), 1,1
Dim Addpic ()
Dim toarticle ()
ReDim Addpic (Ars.recordcount-1)
ReDim Toarticle (Ars.recordcount)

For i = 1 to Ars.recordcount
Addpictemp= ""

THEPOINT=CLNG (CDbl) (ARS ("Loctrate")) * (1-lastloctrate) * Len (Article_comm))
Lastloctrate=cdbl (ARS ("Loctrate"))
Toarticle (i-1) =left (article_comm,thepoint)
Article_comm=right (Article_comm,len (article_comm)-thepoint)
Select Case ARS ("align")
Case 0
addpictemp= addpictemp + "<div align=" "Center" ">"
addpictemp= addpictemp + "<center>"
addpictemp= addpictemp + "<table border=" "0" "cellpadding=" "0" "cellspacing=" "0" ""
If ARS ("style") =2 Then
addpictemp= addpictemp + "style=" "border-collapse:collapse; Border-style:solid; Border-width:1 "bordercolor=" "#111111" "" "
End If
addpictemp= addpictemp + ">"
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td width=" "100%" ">"
addpictemp= addpictemp + "<div align=" "Center" ">"
addpictemp= addpictemp + "<center>"
addpictemp= addpictemp + "<table width=" "height=" "0" "cellpadding=" "0" ""
If ARS ("style") =0 Then
addpictemp= addpictemp + "style=" "border-collapse:collapse; Border-style:solid; Border-width:1 "bordercolor=" "#111111" "" "
End If
addpictemp= addpictemp + ">"
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "&LT;TD align=" "Center" ">"
addpictemp= addpictemp + "
If ARS ("show_sq") =2 or ARS ("show_sq") =3 Then
addpictemp= addpictemp + "title=" "" + Server.HTMLEncode (ARS ("Pic_comm")) + "" "
End If
addpictemp= addpictemp + "src=" ""
Addpictemp= Addpictemp + Session ("Image_lab") + "/" +rtrim (ARS ("Picurl"))
addpictemp= addpictemp + "" ></td> "
addpictemp= addpictemp + "</tr>"
addpictemp= addpictemp + "</table>"
addpictemp= addpictemp + "</center>"
addpictemp= addpictemp + "</div>"
addpictemp= addpictemp + "</td>"
addpictemp= addpictemp + "</tr>"
If ARS ("show_sq") =1 or ARS ("show_sq") =3 Then
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td width=" "100%" "NoWrap align=" "Center" "valign=" "Top" ">"
addpictemp= addpictemp + "<font size=" "2" "color=&q