'" &; cate &; "'" producedel 的数据库连接代码 db = "data\product.mdb" cate=Trim(Request.QueryString("no")) 'response.write "
" sql = "SELECT * FROM tbproduct WHERE categoryid='" &; cate &; "'" Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &; _ "Data Source=" &; Server.MapPath(db) conn.Open() '连接数据库 rs.ActiveConnection = conn '设置 rs 的 ActiveConnection 属性 rs.CursorType = 1 '设置游标类型 rs.LockType = 1 '设置锁定类型 rs.Open sql '打开记录集 %> Productjoin1 数据库代码 sql = "UPDATE t
bproduct SET " sql = sql &; "categoryid='" &; cate &; "'," sql =
sql &; "productname='" &; pn &; "'" sql = sql &; "productexplain='"&; pe &;"'" sql = sql &; "price='"&; pc &;"'" sql = sql &; "remark='"&; rk &;"'" sql = sql &; " WHERE categoryid='" &; cate &; "'" productlist 数据库代码 db = "data/product.mdb" count = 0 '初始化计数器 pageSize = 20 '每页显示 20 条记录 sql = "SELECT * FROM tbproduct" '使用 Server 对象的 CreateObject 方法建立 Connection 对象 Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") '设置 Connection 对象的 ConnectionString conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &; _ "Data Source=" &; Server.MapPath(db) conn.Open() '连接数据库 rs.ActiveConnection = conn '设置 rs 的 ActiveConnection 属性 rs.CursorType = 1 '设置游标类型 rs.LockType = 1 '设置锁定类型 rs.Open sql '打开记录集 If rs.EOF Then Response.Write("暂时没有任何信息!") Response.End End If
后台管理的代码: <%
public function OutStr(str, mode) if mode="" or mode=1 then color="#000000" elseif mode=2 then color="#FF0000" end if outstr="
[ 退 回 ]
" end function sub outcheck(check_value) if check_value<> "" then Response.Write outstr(check_value,2) Response.End end if end sub public function HtmlOut(str) '将文字
-
相关文章
-
最新文件