• 4878阅读
  • 2回复

SQLServer存储过程的执行问题 [复制链接]

上一主题 下一主题
离线韭菜
 

只看楼主 倒序阅读 0楼 发表于: 2005-12-27
数据表 vote_user 如下
其中tid为外键,数据表vote_user_type已经存在并有3行数据

  1. CREATE TABLE vote_user (
  2.     uid             int IDENTITY (1, 1) NOT NULL,
  3.     tid             int NOT NULL,
  4.     uname           varchar(20) NOT NULL,
  5.     ucardno         varchar(18) NOT NULL,  
  6.     ugender         char(2) NOT NULL,
  7.     uparty           varchar(10) NULL,
  8.     uifvote         int NULL,
  9.     uifreg           int NULL,
  10.     PRIMARY KEY (uid ASC),
  11.     FOREIGN KEY (tid)
  12.                   REFERENCES vote_user_type (tid)
  13.                   ON DELETE NO ACTION
  14.                   ON UPDATE CASCADE
  15. )




存储过程脚本如下:
  1. CREATE PROCEDURE vote_pcd_adduser
  2.   @uid     int,
  3.   @tid     int,
  4.   @uname     varchar(20),
  5.   @ucardno   varchar(18),
  6.   @ugender   char(2),
  7.   @uparty     varchar(10),
  8.   @uifvote   int,
  9.   @uifreg     int,
  10.   @userid     int   output
  11. AS
  12.   declare @intExist int --return value
  13.   if exists(select uid from vote_user where ucardno=@ucardno)
  14.     select @intExist=1
  15.   else
  16.     begin
  17.         select @intExist=0
  18.         insert into vote_user(uid,tid,uname,ucardno,ugender,uparty,uifvote,uifreg) values(@uid,@tid,@uname,@ucardno,@ugender,@uparty,@uifvote,@uifreg)
  19.         select @userid=(select uid from vote_user where ucardno=@ucardno)
  20.     end
  21.   return @intExist


离线韭菜

只看该作者 1楼 发表于: 2005-12-27
注册文件的asp脚本
变量 vote_user 的值已经在其它文件中定义为数据表的名字 vote_user
变量 objConn 是数据库链接,已经成功链接了数据库


dim objRs         'ADODB.RecordSet 实例
dim objCmd         'ADODB.Command 实例
dim objPm         'ADODB.Parameter 实例
dim strSubmit     '表单 提交按钮 变量
dim strUname     '表单 姓名 变量
dim strUcardno     '表单 身份证号码 变量
dim strUgender     '表单 性别 变量
dim strUparty     '表单 政治面貌 变量
dim blnCanreg     '是否可以注册标志
dim strSql         'SQL语句
dim strUsertype     '1=选民 2=候选人 3=管理员
dim intMaxuid     '已经注册用户的最大编号
dim intRegFailed   '是否注册成功
dim intUid         '注册成功后的id

  strSubmit=Trim(Request.Form("submit"))

  Set objRs=server.createObject("ADODB.RecordSet")
  strSql="select id from sysobjects where name='" & vote_user & "'"
  objRs.open strSql,objConn,1,1
  'If Err.number<>0 Then '表存在
  If objRs.bof or objRs.eof then '表不存在
    Response.Write("数据表 " & vote_user & " 不存在,请检查数据库 " & Chr(13) )
    Err.clear
    objRs.close
    set objRs=nothing
  Else
    blnCanreg=false
    If strSubmit<>"" Then '提交表单
        '/********************************************************************/
        strUname=Replace(Trim(Request.Form("username")),"'","")
        strUcardno=Replace(Trim(Request.Form("idcard")),"'","")
        strUgender=Replace(Trim(Request.Form("gender")),"'","")
        strUparty=Replace(Trim(Request.Form("party")),"'","")
       
       
        '用户重复性判断
        Set objRs=server.createObject("ADODB.RecordSet")
        strSql="select uname,ucardno from " & vote_user & " where uname='" & strUname & "'"
        strSql= strSql & " and ucardno='" & strUcardno & "'"        
        objRs.open strSql,objConn,1,1
        'Response.Write(strSql)
        '姓名和身份证号码判断
        If strUname="" Then
          Response.Write("姓名不能为空 ")
        ElseIf strUcardno="" Then
          Response.Write("身份证号码不能为空 ")
        Elseif Not (objRs.eof or objRs.bof) Then
          Response.Write("您已经注册过了,请直接登录。")
          blnCanreg=false
        ElseIf not ( Len(strUcardno)=15 or Len(strUcardno)=18 ) Then
          Response.Write("身份证号码有误 ")
        ElseIf strUgender="" Then
          Response.Write("请选择您的性别 ")
        ElseIf strUparty="" Then
          Response.Write("请选择您的政治面貌 ")
        else
          blnCanreg=true
          'Response.Write( uname & "可以注册")
        End If

        objRs.close
        set objRs=nothing

        '注册开始
        strUsertype=1
        intRegFailed=1
        intUid=0
        if blnCanreg then
          Response.Write("注册中,请等待... <br /><br />")
          'strSql=strSql & "insert into " & vote_user & "(tid,uname,ucardno,ugender,party,uifvote,uifvote) "
          strSql=strSql & "values('" & strUsertype & "','" & strUname & "',"
          strSql=strSql & "'" & strUcardno & "','" & strUgender & "','" & strUparty & "',"
          strSql=strSql & "0,0)"
          'Response.Write(strSql)
          'objConn.execute strSql
          'strSql=strSql & "insert into " & vote_user & "(tid,uname,ucardno,ugender,party,uifvote,uifvote) "
          'strSql=strSql & "values('" & strUsertype & "','?,?,?,?,"
          'strSql=strSql & "'0','0')"

          Set objRs=server.createObject("ADODB.RecordSet")
          strSql="select max(uid) as mid from " & vote_user
          objRs.open strSql,objConn,1,1
          if Not (objRs.eof or objRs.bof) Then
            intMaxuid=objRs("mid")+1
          end if
         
          objRs.close
          set objRs=nothing

          'Response.Write(strSql)
          'Response.Write(intMaxuid)

          Set objCmd=server.createObject("ADODB.Command")
        with objCmd
          .ActiveConnection=objConn
          .CommandText = "vote_pcd_adduser"
          .CommandType = adCmdStoredProc
          .Parameters.Append .CreateParameter("Return_Value",adInteger,adParamReturnValue)
          .Parameters.Append .CreateParameter("@uid",adInteger,adParamInput)
          .Parameters.Append .CreateParameter("@tid",adInteger,adParamInput)
          .Parameters.Append .CreateParameter("@uname",adVarChar,adParamInput,20)
          .Parameters.Append .CreateParameter("@ucardno",adVarChar,adParamInput,18)
          .Parameters.Append .CreateParameter("@ugender",adChar,adParamInput)
          .Parameters.Append .CreateParameter("@uparty",adVarChar,adParamInput,10)
          .Parameters.Append .CreateParameter("@uifvote",adInteger,adParamInput)
          .Parameters.Append .CreateParameter("@uifreg",adInteger,adParamInput)
          .Parameters.Append .CreateParameter("@userid",adInteger,adParamOutput)

          .Parameters("@uid")     =   intMaxuid
          .Parameters("@tid")     =   strUsertype
          .Parameters("@uname")   =   strUname
          .Parameters("@ucardno")   =   strUcardno
          .Parameters("@ugender")   =   strUgender
          .Parameters("@uparty")   =   strUparty
          .Parameters("@uifvote")   =   0
          .Parameters("@uifreg")   =   0
          .Execute

          intRegFailed=   .Parameters("Return_Value")
          intUid     =   .Parameters("@userid")

          Response.Write(.Parameters("@uid")) & "<br />"
          Response.Write(.Parameters("@tid")) & "<br />"
          Response.Write(.Parameters("@ucardno")) & "<br />"
          Response.Write(.Parameters("@ugender")) & "<br />"
          Response.Write(.Parameters("@uparty")) & "<br />"
          Response.Write(.Parameters("@uifvote")) & "<br />"
          Response.Write(.Parameters("@uifreg")) & "<br />"
          Response.Write(.Parameters("@userid")) & "<br />"
          Response.Write("返回值: " & intRegFailed ) & "<br />"
          Response.Write("返回的新用户id: " & intUid) & "<br />"
        end with
        if   intRegFailed=0 then
          Response.Write("恭喜您: " & objCmd.Parameters("@uname") & ", 注册成功,您的编号是" & intUid)
        else
          Response.Write("您已经注册了")
        end if
        end if 'blnCanreg
    End If ' submit
  End If 'vote_user exists

%>

离线韭菜

只看该作者 2楼 发表于: 2005-12-28
已经解决
我把字段 ugender 修改为 varchar(4) 了
这里也修改了
      .Parameters.Append .CreateParameter("@ugender",adVarChar,adParamInput,4)

现在可以正常执行了.
快速回复
限100 字节
 
上一个 下一个