在添加数据时,提示
ADODB.Recordset
错误 '800a0e78'
对象关闭时,不允许操作。
/admin/qqxg_00.asp,行 65
在修改数据时提示
Provider
错误 '80020005'
类型不匹配。
/admin/qqxg_00.asp,行 55
数据库ID主键,qq_number类型数值,qq_name文本类型,求大侠
action = safeRequest("action",0)
if action="editsave" then
Set rs = server.CreateObject("adodb.recordset")
qq_number = safeRequest("qq_number",0)
qq_name = safeRequest("qq_name",0)
sql = "select * from nqq "
rs.open sql,conn,1,3
if not rs.eof then
rs("qq_number") = qq_number
rs("qq_name") = qq_name
rs.update
end if
rs.Close
Set rs = Nothing
call show_msg("修改成功","")
end if
if action="editsave_add" then
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from nqq "
rs.addnew
rs("qq_number") = request.Form("qq_number")
rs("qq_name") = request.Form("qq_name")
rs.update
rs.Close
Set rs = Nothing
call show_msg("添加成功","")
Response.End()
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>网站QQ客服管理系统</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="header.asp"-->
<div id="top_banner" class="layout"></div>
<div id="content" class="layout">
<!--#include file="left.asp"-->
<div id="right">
<div class="right_title">
<h2>修改QQ客服信息</h2>
</div>
<div class="right_body">
<div id="ex" style="font-size:12px; line-height:22px; padding:5px;">
<form action="" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="4"><strong>修改QQ客服信息</strong>:
</p></td>
</tr>
<tr>
<td width="20%" align="right"> </td>
<td width="30%">
客服号码
</td>
<td width="20%" align="right"> </td>
<td width="30%">
客服名称
</td>
</tr>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from nqq"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<tr>
<td width="20%" align="right"> </td>
<td width="30%">
<input type="text" size="20" name="qq_number" value="<%=rs("qq_number")%>" /></td>
<td width="20%" align="right"> </td>
<td width="30%"><input type="text" size="20" name="qq_name" value="<%=rs("qq_name")%>" /></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs = nothing
end if
%>
<tr>
<td colspan="4" width="100%" align="center"><p class="submit">
<input name="submit" type="submit" value="确认修改" />
<input type="hidden" name="action" value="editsave"/>
</p></td>
</tr>
</table>
</form>
<form action="" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" align="right">添加QQ:</td>
<td width="30%" >
客服号码: <input type="text" size="20" name="qq_number" />
</td>
<td width="30%" >
客服名称: <input type="text" size="20" name="qq_name" />
</td>
<td width="20%" align="center">
<input name="submit" type="submit" value="确认添加" />
<input type="hidden" name="action" value="editsave_add"/>
</td>
</tr>
</table>
</form>
<p><strong> </strong></p>
<p><strong>SNC 尚佳信息技术有限公司</strong></p>
</div>
</div>
</div>
<div class="clear"></div>
</div>
<!--#include file="footer.asp"-->
用代码器重传一遍。。。。你这看的实在是太累了