帮忙看下ASP代码哪里有问题

来源:百度知道 编辑:UC知道 时间:2024/05/21 09:37:21
下面的代码被调用的时候页面显示空白,希望您能仔细看下问题的所在。急死我了。

Sub AddSave()

Set MySQLConn = Server.CreateObject("ADODB.Connection")
MySQLConn.ConnectionString = NameODBC
MySQLConn.Open()

Set RsChar = MySQLConn.Execute("Select Name,CdKey From tbl_character Where Name=" & request("CharID"))

If Not RsChar.BOF And Not RsChar.EOF Then
Set RsLogin = MySQLConn.Execute("Select EnableFlg From tbl_user Where CdKey=" & RsChar("CdKey"))
MySQLConn.Execute "UpDate tbl_user Set EnableFlg='0' Where CdKey=" & RsChar("CdKey")

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.open "Select * From Punish",AccessConn,1,3
Rs.AddNew
Rs("AccountID") = Rs("CharID") = RsChar("Name")
Rs("UserID") = RsLogin("Name")
Rs("Name") = RsChar("name")
Rs("Punish") = Tri

Sub AddSave()

Set MySQLConn = Server.CreateObject("ADODB.Connection")
MySQLConn.ConnectionString = NameODBC
MySQLConn.Open()

Set RsChar = MySQLConn.Execute("Select Name,CdKey From tbl_character Where Name='" & request("CharID"))

If Not RsChar.BOF And Not RsChar.EOF Then
Set RsLogin = MySQLConn.Execute("Select EnableFlg From tbl_user Where CdKey='" & RsChar("CdKey"))
MySQLConn.Execute "UpDate tbl_user Set EnableFlg='0' Where CdKey='" & RsChar("CdKey")

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.open "Select * From Punish",AccessConn,1,3
Rs.AddNew
Rs("AccountID") = Rs("CharID")
Rs("AccountID")= RsChar("Name")
Rs("UserID") = RsLogin("Name")
Rs("Name") = RsChar("name")
Rs("Punis