网页生成html，显示空白
我在数据库里面看了有数据存在
可是打开网页的时候是空白
可能是没有调用到数据库
代码贴出来，你们看下有没有错误
Sub ContentIDHtml(Pattern,selID)
Dim SQLID, AllID
Dim totalnum, FileUrl, FolderPath, FileName, FilePath
On Error Resume Next
selID = Request("selID")
AllID = Split(selID, ",")
If selID = "" Then
Response.Write "<script>alert('请选择后操作');history.back()</script>"
End If
totalnum = tee5.Execute("SELECT COUNT(*) FROM [Gq_Article] WHERE ID in (" & selID & ")")(0)
SQL = "SELECT * FROM Gq_Article WHERE ID in (" & selID & ")"
Set rs = tee5.Execute(SQL)
SQL=Rs.GetRows(totalnum)
Set Rs = Nothing
If Pattern = 1 then SQLID= UBound(AllID): Else SQLID= UBound(SQL,2)
If Pattern = 1 then Response.Write "<ol>"
If Pattern = 1 then Response.Write "<b>生成文章内容（HTML）开始......</b><br><br>"
For i = 0 To SQLID
FolderPath = tee5.ServerDir & "Html" & tee5.ServerDir & "Article/" & SQL(1,i) & tee5.ServerDir & year(SQL(7,i)) & month(SQL(7,i)) & day(SQL(7,i)) & tee5.ServerDir
tee5.CreatPathEx (FolderPath)
FileUrl = tee5.WebUrl & "/Temp/8.asp?ID=" & Clng(SQL(0,i))
FileName = "News_" & SQL(0,i)
FilePath = FolderPath & FileName & ".html"
Call GetRemoteFiels(FileUrl, FolderPath, FileName)
If Pattern = 1 then Response.Write "<li style=""font-size: 12px;"">生成文章内容HTML页完成... <a href=" & FilePath & " target=_blank>" & Server.MapPath(FilePath) & "</a></li>" & vbNewLine
Response.Flush
Next
If Pattern = 1 then Response.Write "<br><br><b>恭喜您！文章内容HTML全部生成完毕！</b>"
If Pattern = 1 then Response.Write "</ol>"
End Sub
下面的是数据库裁图
[解决办法]
