ASP中将图片横向排列改为纵向排列

来源：百度知道 编辑：UC知道 时间：2024/06/14 09:15:40
If T_CataID <> "" then
Dim dRs, dSql, Flag
Set dRs = Server.CreateObject( "ADODB.Recordset" )
dSql = "SELECT * FROM NewsCata WHERE C_RootID = '"&T_CataID&"'"
dRs.Open dSql, oConn, 0, 1
If dRs.EOF Then
Flag = 1
End If
dRs.Close
Set dRs = Nothing
Else
Flag = 1
End If

TempContent="<table cellspacing=0 cellpadding=0 width=94% align=center border=0>"
TempContent=TempContent&" <tbody>"
TempContent=TempContent&" <tr>"
TempContent=TempContent&" <td height=4></td>"
TempContent=TempContent&" </tr>"
TempContent=TempContent&" <tr>"

If Flag = 1 Then
TempContent=TempContent&" <tr><td>此信息类别并不存在！</td></tr>"
Else
Dim fRs, fSql, fPic ,fNum, j, fPicName, fTitle, PicNam

注意这行，width要根据你现在页面大小进行调整。TempContent="<table cellspacing=0 cellpadding=0 width=94% align=center border=0>"

----------------------------------------------------------------------
If T_CataID <> "" then
Dim dRs, dSql, Flag
Set dRs = Server.CreateObject( "ADODB.Recordset" )
dSql = "SELECT * FROM NewsCata WHERE C_RootID = '"&T_CataID&"'"
dRs.Open dSql, oConn, 0, 1
If dRs.EOF Then
Flag = 1
End If
dRs.Close
Set dRs = Nothing
Else
Flag = 1
End If

TempContent="<table cellspacing=0 cellpadding=0 width=94% align=center border=0>"
TempContent=TempContent&" <tbody>"
TempContent=TempContent&" <tr>"
TempContent=TempContent&" <td height=4></td>"
TempContent=TempContent&" </tr>"

If Flag = 1 Then
TempCont