主题:  关于留言本回复留言的问题!请高手帮助!

维他命

职务:普通成员
等级:1
金币:0.0
发贴:59
注册:2002/3/8 21:13:09
#12002/3/11 23:34:46
1、怎么把回复区在没有回复的情况下隐藏起来?

2、回复留言后,出现了下面错误!
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access 驱动程序] 由于其 Required 属性设置为真(True),字段 'data.name' 不能包含 Null 值。在此字段中输入一个数值。

/hibook/reply.asp, 行90
----------------------------------------------
代码如下:
<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

MM_editConnection = MM_www_STRING
MM_editTable = "data"
MM_editRedirectUrl = "index.asp"
MM_fieldsStr = "textfield|value"
MM_columnsStr = "reply|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tablevalues = ""
MM_dbvalues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tablevalues = MM_tablevalues & ","
MM_dbvalues = MM_dbvalues & ","
End if
MM_tablevalues = MM_tablevalues & MM_columns(i)
MM_dbvalues = MM_dbvalues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tablevalues & ") values (" & MM_dbvalues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Request.QueryString("ID") <> "") then Recordset1__MMColParam = Request.QueryString("ID")
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_www_STRING
Recordset1.Source = "SELECT * FROM data WHERE ID = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>










<%
Recordset1.Close()
%>
---------------------------------------------------
请朋友帮帮忙了,谢谢!!!

编辑历史:[这消息被维他命编辑过(编辑时间2002-03-11 23:36:19)]


I''MAD

职务:普通成员
等级:8
金币:11.0
发贴:9502
注册:2001/9/16 20:00:53
#22002/3/12 14:04:20
你第一个问题可以用数据库为空里不显示,最好在数据库里做一个默认字段,比如说没有回复的时候就显示“暂无回复”等内容。
第二个问题是因为你在设计数据库的时候设置了数据不可为空,这样当用户提交的时候并没有提交数据的话就会出错,你在页面里加上一些脚本程序来检测就行了,没内容的时候就不让提交。



维他命

职务:普通成员
等级:1
金币:0.0
发贴:59
注册:2002/3/8 21:13:09
#32002/3/15 21:16:11
hmily在上个帖子中说
引用:
你第一个问题可以用数据库为空里不显示,最好在数据库里做一个默认字段,比如说没有回复的时候就显示“暂无回复”等内容。
第二个问题是因为你在设计数据库的时候设置了数据不可为空,这样当用户提交的时候并没有提交数据的话就会出错,你在页面里加上一些脚本程序来检测就行了,没内容的时候就不让提交。


版主谢谢你回答我的问题,有没有这方面的教程,比如回复留言的教程之类的???



I''MAD

职务:普通成员
等级:8
金币:11.0
发贴:9502
注册:2001/9/16 20:00:53
#42002/3/16 9:16:55
www.udsky.com
这里有吧,再者面包的网站里也有啊,我好像也在那里面看到你,是吧?



维他命

职务:普通成员
等级:1
金币:0.0
发贴:59
注册:2002/3/8 21:13:09
#52002/3/16 10:38:03
hmily在上个帖子中说
引用:
www.udsky.com
这里有吧,再者面包的网站里也有啊,我好像也在那里面看到你,是吧?


呵呵,是的,那里的我网站我也去,但是教程对回复留言写得比较粗略,所以回复留言我搞不明白,呵呵!!这样好不好,我把我做的留言本发给你一份,然后你帮我做个回复留言的程序(最后是可以隐藏回复区的),这样我回来看看就明白了,好不好??

编辑历史:[这消息被维他命编辑过(编辑时间2002-03-16 10:40:03)]


I''MAD

职务:普通成员
等级:8
金币:11.0
发贴:9502
注册:2001/9/16 20:00:53
#62002/3/16 11:52:23
你选发吧,我帮你看看。



维他命

职务:普通成员
等级:1
金币:0.0
发贴:59
注册:2002/3/8 21:13:09
#72002/3/17 9:54:00
hmily在上个帖子中说
引用:
你选发吧,我帮你看看。


已发送,请查收,谢谢!做好回复后请再发到我的邮箱,地址:hj1681@21cn.com