请教!

Question

Dim objReader 放在你高级变量中（变量范围的问题），也就是你的第二个函数要能访问到那个变量。

Answer 1

很少看到你这种写代码的风格,好像你用ASP很久了,在ASP.NET中:你最好这样,也许能解决你的问题:
Function CreateDataRead(strSQL As String,TableName As String) as SqlDataReader
 Dim Iconn As New SqlConnection()
 Iconn.ConnectionString = sqlconnstring
  Iconn.Open()
 '创建 DataReader 对象案例
    Dim objCmd As New SqlCommand()
    objCmd.Connection = Iconn
    objCmd.CommandText = strSQL 
    Dim objReader As SqlDataReader = objCmd.ExecuteReader()
    return objReader
 End Function Function Checkuser(byval stu_no as integer,byval stu_pass as string,byval sql as string,byval table_name as string)
dim objReader as SqlDataReader=CreateDataRead(sql,table_name)
if not objReader.Read() then
response.Redirect("index1.aspx")
else
session("stu_num")=objReader.Item("stu_num")
session("stu_class")=objReader.Item("stu_class")
response.Redirect("student.aspx")
end if
 End Function