代码如下
<%
dim strUserID,strPwd,strDbName,strConn
strUserID = "sa"
strPwd = ""   'syokuzai
strDbName = "AGE_777"
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & strUserID & ";PWD=" & strPwd & ";Initial Catalog=" & strDbName & ";Data Source=."
dim conn,cmd
Set conn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
conn.open strConn   cmd.ActiveConnection=strConn
cmd.CommandText = "PR_PGE100101"
cmd.CommandType = CommandType.StoredProcedure 'cmd =New SqlCommand("PR_PGE100101",conn);
'cmd.CommandType=CommandType.StoredProcedure;
cmd.ExecuteNonQuery()
%>
不需要返回值,请调试好告知错误,谢谢了先