UC知道asp中“没有为命令对象设置命令”
来源：百度知道 编辑：UC知道 时间：2024/09/18 04:26:47
<!--#include file="Inc/ChkSafe.asp" -->
<!--#include file="Inc/Conn.asp" -->
<!--#include file="Inc/Const.asp" -->
<%
If Trim(Request("edit"))="mod" Then
actionstr="?action=mod"
submitstr="修 改"
userid=Trim(Request("userid"))
Sql="select top 1 * from NC_User where userid="&userid
Set Rs=server.Createobject("Adodb.recordset")
Rs.open Sql,conn,1,1
If Not Rs.eof Then
username=Rs("username")
password=Rs("password")
End if
Rs.close
Set Rs=Nothing
Call closeconn(conn)
Else
actionstr="?action=add"
submitstr="新 增"
End if
If Trim(Request("action"))="add" Then
username=Trim(Request("username"))
password=Trim(Request("password"))
Sqlstr="insert
<!--#include file="Inc/Conn.asp" -->
<!--#include file="Inc/Const.asp" -->
<%
If Trim(Request("edit"))="mod" Then
actionstr="?action=mod"
submitstr="修 改"
userid=Trim(Request("userid"))
Sql="select top 1 * from NC_User where userid="&userid
Set Rs=server.Createobject("Adodb.recordset")
Rs.open Sql,conn,1,1
If Not Rs.eof Then
username=Rs("username")
password=Rs("password")
End if
Rs.close
Set Rs=Nothing
Call closeconn(conn)
Else
actionstr="?action=add"
submitstr="新 增"
End if
If Trim(Request("action"))="add" Then
username=Trim(Request("username"))
password=Trim(Request("password"))
Sqlstr="insert
If Trim(Request("action"))="add" Then
username=Trim(Request("username"))
password=Trim(Request("password"))
Sqlstr="insert into TC_User(username,password) Values('"&_
username&"','"&password&"')"
Conn.execute(Sqlstr) '这里变量Sql应该是Sqlstr吧？
Call Closeconn(Conn)
Msgstr="新增会员成功"
Msg(Msgstr)
Redirect("linklist.asp")
Response.end
End if