陶益數碼工作室-Dreamweaver開發ASP視頻教程
你的位置:首頁 >>> 站內幫助 >>> VIP熱點問題 >>> 制作文章系統二級欄目批量修改功能
VIP技術支持中心
歡迎你訪問熱點問題!我們回答了會員大量的問題,請搜索你想要的 
制作文章系統二級欄目批量修改功能
問題類型 學習教程中的問題 提交時間 2010-12-08 01:07:00
[會員 416*** 提出的問題如下]

陶老師您好,我想請教您一個問題,我在做文章系統二欄目修改的時候,預覽無法打開,提示

代碼如下:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_conn_STRING
    MM_editCmd.CommandText = "UPDATE dbo.Wz_ylm_biao SET ylm = ?, ypx = ? WHERE yid = ?"
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("ylm")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("ypx"), Request.Form("ypx"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "wz_lm.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("yid") <> "") Then
  Recordset1__MMColParam = Request.QueryString("yid")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_conn_STRING
Recordset1_cmd.CommandText = "SELECT * FROM dbo.Wz_ylm_biao WHERE yid = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim elm__MMColParam
elm__MMColParam =(Recordset1.Fields.Item("yid").Value)
If (Request("MM_EmptyValue") <> "") Then
  elm__MMColParam = Request("MM_EmptyValue")
End If
%>
 <%
Dim elm
Dim elm_cmd
Dim elm_numRows

Set elm_cmd = Server.CreateObject ("ADODB.Command")
elm_cmd.ActiveConnection = MM_conn_STRING
elm_cmd.CommandText = "SELECT * FROM dbo.Wz_elm_biao WHERE ssyl = MMColParam ORDER BY epx ASC"
elm_cmd.Prepared = true

Set elm = elm_cmd.Execute
elm_numRows = 0
%>
 <%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
elm_numRows = elm_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="//www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無標題文檔</title>
</head>

<body>
<h3>文章管理</h3>
<p><a href="wz.asp">修改刪除現有文章</a> <a href="wz_tj.asp">添加新的文章</a> <a href="wz_lm.asp">管理文章欄目</a></p>
<form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
  <table width="100%" border="0" cellpadding="6" cellspacing="0">
    <tr>
      <td>一級欄目名稱</td>
      <td><input name="ylm" type="text" id="ylm" value="<%=(Recordset1.Fields.Item("ylm").Value)%>" size="12" /></td>
      <td>排序</td>
      <td><input name="ypx" type="text" id="ypx" value="<%=(Recordset1.Fields.Item("ypx").Value)%>" size="4" /></td>
    </tr>
    <tr>
      <td>二級欄目名稱<br /></td>
      <td colspan="3" id="objFiles" ><% i=1
While ((Repeat1__numRows <> 0) AND (NOT elm.EOF))
%>
          <input name="elm<%=i%>" type="text" id="elm<%=i%>" value="<%=(elm.Fields.Item("elm").Value)%>" size="12" />
          &nbsp; 排序
          <input name="epx<%=i%>" type="text" id="epx<%=i%>" value="<%=(elm.Fields.Item("epx").Value)%>" size="4" />
          <br />
      <% i=i+1
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  elm.MoveNext()
Wend
%></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td colspan="3"><input type="submit" name="button" id="button" value="修改" /></td>
    </tr>
  </table>

  <input type="hidden" name="MM_update" value="form1" />
  <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("yid").Value %>" />
</form>
<p>&nbsp;</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
elm.Close()
Set elm = Nothing
%>

 

[本站回復]
這個頁面不能直接預覽,需要先進入文章欄目頁面,點擊修改鏈接進入
[相關內容]
 在更新記錄時提示“操作必須使用一個可更新的查詢”
 老師幫看看這個代碼什么有錯?第42講 Dreamweaver實現批量更新
 在asp更新用戶注冊表,當更新ID時出錯
 自動更新時間設置
 更新問題??!
 自動更新數據為當前日期
 一個更新記錄的統計問題
 更新文章點擊數不成功的原因
 關于文章系統二類欄目更新轉頁的問題
 批量更新能不能使用ACCESS的查詢視圖?
 使用批量更新提交時能不能定義一個URL參數傳遞過去?
 關于修改用戶資料后不能瀏覽詳細頁
 關于批量更新問題
 修改密碼中更新記錄表單無法顯示的問題
 修改新聞時出現錯誤
 老師!為什么我在制作產品類別里面刪除和修改
 設置點擊數命令是怎么設置的
 錯誤類型:ADODB.Command (0x800A0D5D)
 請問下陶老師,如何顯示修改時間?
 更改文本顏色數據類型錯誤
 INSERT INTO 語句的語法錯誤。
 如何使用跟新命令?
 更新記錄出現錯誤
 修改記錄時,第一次修改可以,第二次不可以
 表單插入同時更新另一數據表日期時間有問題
 修改時更新記錄的問題
 做修改密碼頁預覽出錯
 補充前一個修改密碼文件的代碼
 數據連接訪問不到內容
 無法顯示修改頁面

會員中心 意見建議 獲取VIP 聯系我們 付款方式 版權聲明
陶益數碼工作室 www.vnpji.com Copyright © 2006 英超曼城队新闻 黔ICP備11000612號