变量更改对照：

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中进行匹配查找，有则读出