<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Reg__MMColParam Reg__MMColParam = "1" If (Request.QueryString("user") <> "") Then Reg__MMColParam = Request.QueryString("user") End If %> <% Dim Reg Dim Reg_cmd Dim Reg_numRows Set Reg_cmd = Server.CreateObject ("ADODB.Command") Reg_cmd.ActiveConnection = MM_flv_conn_STRING Reg_cmd.CommandText = "SELECT * FROM userad WHERE [user] = ?" Reg_cmd.Prepared = true Reg_cmd.Parameters.Append Reg_cmd.CreateParameter("param1", 200, 1, 50, Reg__MMColParam) ' adVarChar Set Reg = Reg_cmd.Execute Reg_numRows = 0 %> <% Dim Ruflv__MMColParam Ruflv__MMColParam = "1" If (Request.QueryString("user") <> "") Then Ruflv__MMColParam = Request.QueryString("user") End If %> <% Dim Ruflv Dim Ruflv_cmd Dim Ruflv_numRows Set Ruflv_cmd = Server.CreateObject ("ADODB.Command") Ruflv_cmd.ActiveConnection = MM_flv_conn_STRING Ruflv_cmd.CommandText = "SELECT * FROM userflv WHERE [user] = ?" Ruflv_cmd.Prepared = true Ruflv_cmd.Parameters.Append Ruflv_cmd.CreateParameter("param1", 200, 1, 50, Ruflv__MMColParam) ' adVarChar Set Ruflv = Ruflv_cmd.Execute Ruflv_numRows = 0 %> <% Dim Rusay__MMColParam Rusay__MMColParam = "1" If (Request.QueryString("user") <> "") Then Rusay__MMColParam = Request.QueryString("user") End If %> <% Dim Rusay Dim Rusay_cmd Dim Rusay_numRows Set Rusay_cmd = Server.CreateObject ("ADODB.Command") Rusay_cmd.ActiveConnection = MM_flv_conn_STRING Rusay_cmd.CommandText = "SELECT * FROM usersay WHERE [user] = ?" Rusay_cmd.Prepared = true Rusay_cmd.Parameters.Append Rusay_cmd.CreateParameter("param1", 200, 1, 50, Rusay__MMColParam) ' adVarChar Set Rusay = Rusay_cmd.Execute Rusay_numRows = 0 %><% Dim Rid Dim Rid_cmd Dim Rid_numRows Set Rid_cmd = Server.CreateObject ("ADODB.Command") Rid_cmd.ActiveConnection = MM_flv_conn_STRING Rid_cmd.CommandText = "SELECT * FROM f_index" Rid_cmd.Prepared = true Set Rid = Rid_cmd.Execute Rid_numRows = 0 %> <% 'T3_DB to HTML3.0 '-林木森森-2005 'E-mail:zhaowei1632@sina.com ' 支持mx,dw2004 Response.Buffer = False TemplateName = "blog.asp" DestinationPath = "flv_user" Set objFile = CreateObject("Scripting.FileSystemObject") WritePath = Server.MapPath(DestinationPath) & "\" If NOT objFile.FolderExists(WritePath) then objFile.CreateFolder(WritePath) Response.Write "文件夹不存在，系统自动创建文件夹:" & "

" & WritePath & "
" End If 'Create Index File Set WriteFile = objFile.CreateTextFile(WritePath & "index.htm", True) WriteFile.Close 'Create HTML format Set IndexText = objFile.OpenTextFile(WritePath & "index.htm", 8, True) IndexText.WriteLine("" & chr(13) & "" & chr(13) & "" & chr(13) & "") IndexText.WriteLine("" & chr(13)) IndexText.WriteLine("" & chr(13) & chr(13) & "" & chr(13)) IndexText.WriteLine("文章列表：

") FilePath = Server.MapPath(TemplateName) 'Check for template. If NOT objFile.FileExists(FilePath) then Response.Write "错误，模板文件没有找到:
" & TemplateName Response.End() End If 'Store template HTML Set objReadTemplate = objFile.OpenTextFile(FilePath, 1, -8) While NOT objReadTemplate.AtEndOfStream TemplateText = TemplateText & objReadTemplate.ReadLine & chr(13) Wend objReadTemplate.Close While NOT Reg.EOF WriteFileText = TemplateText For Each objField in Reg.Fields If NOT IsNull (Reg.Fields.Item(objField.Name).Value) then WriteFileText = Replace (WriteFileText, "@" & objField.Name & "@", Replace(Reg.Fields.Item(objField.Name).Value, chr(13), "
")) End If Next IndexField = Reg.Fields.Item("user").Value Indextitle = Reg.Fields.Item("user").Value WritePath = Server.MapPath(DestinationPath) & "\" Set WriteFile = objFile.CreateTextFile(WritePath & IndexField & ".htm", True) WritePath = objFile.GetAbsolutePathName(WritePath & IndexField & ".htm") Response.Write "时间：" & Time & "; 生成静态文件: " & DestinationPath & "\" & IndexField & ".htm
" WriteFile.WriteLine WriteFileText WriteFile.Close 'Create links on Index page IndexText.WriteLine("" & Indextitle & "
") Reg.MoveNext Wend IndexText.WriteLine("" & chr(13) & "") IndexText.Close %>

" width="158" height="131" class="jkjh" />     <% If Not Reg.EOF Or Not Reg.BOF Then %> 播客：<%=(Reg.Fields.Item("user").Value)%> 性别：<%=(Reg.Fields.Item("sex").Value)%> QQ:<%=(Reg.Fields.Item("QQ").Value)%> 电话：<%=(Reg.Fields.Item("tel").Value)%> E-Mail:<%=(Reg.Fields.Item("email").Value)%> <% End If ' end Not Reg.EOF Or NOT Reg.BOF %> <% If Reg.EOF And Reg.BOF Then %> 会员正在审核或未添加详细资料！ <% End If ' end Reg.EOF And Reg.BOF %>   <%=(Reg.Fields.Item("user").Value)%>的主页网址： /blog.asp?user=<%=(Reg.Fields.Item("user").Value)%>" size="55" />   <%=(Reg.Fields.Item("user").Value)%>的简介

<% Rid.Close() Set Rid = Nothing %> <% Reg.Close() Set Reg = Nothing %> <% Ruflv.Close() Set Ruflv = Nothing %> <% Rusay.Close() Set Rusay = Nothing %>