类别管理完成 2004-08-01

变量更改对照：

connTOdb.asp --> inc/conn.asp

css.css --> style/default.css

news.css --> style/news.css

<!--#include file="connTOdb.asp"--> --> <!--#include file="../inc/conn.asp"-->

<% Option Explicit %>

con --> objConn

rs --> objRS

strsql,sql --> strSQL

Page,page --> lngPage

其他更改：

Set objRS = Server.Createobject("ADODB.Recordset") 置于各页面内

Function SafeSQL(strSQL)

Dim strSQL,SafeSQL

SafeSQL = Replace(Trim(strSQL), "'", "''", 1, -1, 1)

End Function

调试问题：

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open "Database = news;Uid = sa;Pwd = admin;Driver = {SQL SERVER}"

出现代码为80040005错误

对于用户发布信息时信息类型类标的生成，将用户session中的ID值在NewsClass.ClassID中进行匹配查找，有则读出