oblog 4.02 表结构更新
最后更新时间：2006年12月19日 17:11
============================================
<% Dim iStep,rs iStep=Request("step") 'On error Resume Next Dim strSql,strErrMsg,strNow If iStep=1 Then Call Link_Database Call Execute("Alter Table oblog_upfile Add photo_title varchar (255) NULL") If strErrMsg<>"" Then Echo "oblog_upfile 修改失败:
" & strErrMsg &"
" Else Echo "oblog_upfile 修改成功
" End If strErrMsg="" Call Execute("Alter Table oblog_log Add tbcode varchar (50) NULL") If strErrMsg<>"" Then Echo "oblog_log 修改失败:
" & strErrMsg &"
" Else Echo "oblog_log 修改成功
" End If strErrMsg="" Response.Write "执行完毕!
请删除本文件!" Response.End End If %> ============================================
oBlog4.02(http://www.oblog.cn)
<% '--------------------------------------------- Sub Execute(sSql) On Error Resume Next Call conn.Execute(sSql) If Err.Number<>0 Then strErrMsg = strErrMsg & "" & Err.Description & "
" End If Err.Clear On Error Goto 0 End Sub Sub Echo(sStr) Response.Write sStr Response.Flush End Sub %>