HTTP 錯誤 500.100 - 內部服務器錯誤 - ASP 錯誤
Internet 資訊服務
--------------------------------------------------------------------------------
技術資訊（用于支持人員）
錯誤型別：
Microsoft VBScript 運行時錯誤 (0x800A000D)
型別不匹配: 'Card_Number'
/Card_Add.asp, 第 56 行
--------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../init.asp"-->
<%
Public Function GetRndString(ByVal intNum)
If intNum <= 0 Then Exit Function
Dim i
Dim intLength
'// 這些字符用來做種子
Const STRINGSOURCE = "0123456789"
intLength = Len(STRINGSOURCE)-1
Randomize
For i = 1 To intNum
'// 利用 Mid Rnd 函式每次從種子字串中隨機抽取一個字符
GetRndString = GetRndString & Mid(STRINGSOURCE,Int(Rnd * intLength + 1),1)
Next
End Function
' ============================================
'作 用：得到多少位數的隨機函式
'參 數：數字
'回傳值：亂數
'調 用：GetRamCode(數字)
' ============================================
Public Function GetRamCode(f_number)
Randomize
Dim f_Randchar, f_Randchararr, f_RandLen, f_Randomizecode, f_iR
f_Randchar = "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
f_Randchararr = Split(f_Randchar, ",")
f_RandLen = f_number '定義密碼的長度或者是位數
For f_iR = 1 To f_RandLen
f_Randomizecode = f_Randomizecode & f_Randchararr(Int((21 * Rnd)))
Next
GetRamCode = f_Randomizecode
End Function
'==============================================
if Trim(Request.Form("Action"))="Submit" Then
Card_Len = Trim(Request.Form("Card_Len"))
if Card_Len>0 Then
sql = "Select * from [D_VIP] order by id desc"
Set Rs = CN.execute(sql)
if Rs.bof and rs.eof Then
Card_Number = 100000
Else
Card_Number = Rs("Card_Number")
End if
Rs.close
Set RS = Nothing
for i=1 to Card_Len
'Card_Number = GetRndString(8)
Activation_Number = GetRamCode(6)
Sql ="Select * from [D_VIP]"
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.open sql,Cn,1,3
Rs.addnew
Rs("Card_Number") = Card_Number + i
Rs("Activation_Number") = Activation_Number
Rs("Period_Time") = Date()
Rs.Update
Rs.Requery
Rs.close
Set RS = Nothing
Next
End if
Response.write("<script>alert('號生成功！');location='VIP_card.asp';</script>")
Response.End()
End if
%>
問題補充：Rs("Card_Number") = Card_Number + i 就是這行
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/102242.html
標籤：數據庫相關