账号通
    

账号  

密码  

2981

查看

4

回复
主题:[求助]添加自定义表单出错提示在此环境中不允许操作 [收藏主题] 转到:  
wdiy 当前离线

115

主题

0

广播

1

粉丝
添加关注
级别:一年级

用户积分:1551 分
登录次数:197 次
注册时间:2007/3/27
最后登录:2013/10/19
wdiy 发表于:2010/12/28 10:29:01   | 只看该作者 查看该作者主题 楼主 
科汛智能建站系统

我把7.0用access数据库改为用sql2000数据库后。添加自定义表单时提示此环境中不允许操作。

以下是添加自定义表单的代码:

  1.   Sub FormSave()

  2.       Dim ExpiredDate,StartDate,I,OpName,ID:ID=KS.ChkClng(KS.G("ID"))
  3.    StartDate=KS.G("StartDate")
  4.    ExpiredDate=KS.G("ExpiredDate")
  5.    If Not IsDate(StartDate) Then Call KS.AlertHistory("生效日期格式不正确",-1):response.end
  6.    If Not IsDate(ExpiredDate) Then Call KS.AlertHistory("失效日期格式不正确",-1):response.end
  7.    If ID=0 and Not Conn.Execute("select top 1 id from ks_form where tablename='KS_Form_" & KS.G("TableName") &"'").eof then Call KS.AlertHistory("数据表已存在!",-1):response.end
  8.    on error resume next
  9.    Conn.BeginTrans
  10.       Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
  11.    RS.Open "Select * From KS_Form Where ID=" & ID,Conn,1,3
  12.    If  RS.Eof And RS.Bof Then
  13.        RS.AddNew
  14.     RS("TableName")= "KS_Form_" & KS.G("TableName")
  15.     OpName      = "添加"
  16.    Else
  17.        OpName="修改"
  18.    End If
  19.     RS("FormName")= KS.G("FormName")
  20.     RS("UploadDir")= KS.G("UpLoadDir")
  21.     RS("Status") = KS.G("Status")
  22.     RS("TimeLimit")   = KS.ChkClng(KS.G("TimeLimit"))
  23.     RS("StartDate")     = startdate
  24.     RS("ExpiredDate")    = ExpiredDate
  25.     RS("useronce") =KS.ChkClng(KS.G("useronce"))
  26.     rs("onlyuser")=KS.ChkClng(KS.G("onlyuser"))
  27.     rs("shownum")=ks.chkclng(ks.g("shownum"))
  28.     RS("AllowGroupID")     = KS.G("AllowGroupID")
  29.                 RS("Descript")    = KS.G("Descript")
  30.     RS("PostByStep")  = KS.ChkClng(KS.G("PostByStep"))
  31.     RS("StepNum")     = KS.ChkClng(KS.G("StepNum"))
  32.     RS("ToUserEmail") = KS.ChkClng(KS.G("ToUserEmail"))
  33.     RS.Update
  34.     RS.Close
  35.     Set RS=Nothing
  36.    
  37.     If OpName="添加" Then
  38.      Dim sql:sql="CREATE TABLE [KS_Form_" & KS.G("TableName") & "] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_KS_Form_" & KS.G("TableName") & " PRIMARY KEY,"&_
  39.       "UserName nvarchar(100),"&_
  40.       "UserIP nvarchar(100),"&_
  41.       "AddDate datetime,"&_
  42.       "[Note] text,"&_
  43.       "Status tinyint default 0)"
  44.      Conn.Execute(sql)
  45.     End If
  46.     if err<>0 then
  47.      Conn.RollBackTrans
  48.      Call KS.AlertHistory("出错!出错描述:" & replace(err.description,"'","\'"),-1):response.end
  49.     else
  50.      Conn.CommitTrans
  51.      Response.Write ("<script>alert('" & OpName & "自定义表成功!');location.href='KS.Form.asp';</script>")
  52.     end if
  53.   End Sub



不知道问题出在哪里。生成的sql语句我在sql2000的查询分析器里也执行过。没有错误。

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
wdiy 当前离线

115

主题

0

广播

1

粉丝
添加关注
级别:一年级

用户积分:1551 分
登录次数:197 次
注册时间:2007/3/27
最后登录:2013/10/19
wdiy 发表于:2010/12/28 11:24:40   | 只看该作者 查看该作者主题 沙发 
科汛在线商城系统(NET)
:( 那位高人给指点一下啊
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
wdiy 当前离线

115

主题

0

广播

1

粉丝
添加关注
级别:一年级

用户积分:1551 分
登录次数:197 次
注册时间:2007/3/27
最后登录:2013/10/19
wdiy 发表于:2010/12/28 11:42:20   | 只看该作者 查看该作者主题 藤椅 
科汛在线网校系统
晕自己找到原因了。原来是ks_form这个表的id从access转到sql2000时不会设为自动增长。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
阳光的香味 当前离线

841

主题

0

广播

0

粉丝
添加关注
级别:六年级

用户积分:900 分
登录次数:15 次
注册时间:2010/12/22
最后登录:2012/12/3
阳光的香味 发表于:2010/12/29 9:45:29   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
guoxiaoqing123 当前离线

801

主题

0

广播

0

粉丝
添加关注
级别:六年级

用户积分:543 分
登录次数:63 次
注册时间:2011/8/24
最后登录:2011/12/14
guoxiaoqing123 发表于:2011/10/11 10:03:20   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.18750秒 powered by KesionCMS 9.0