西安石油大学本科毕业设计（论文）

Dim rs

Set conn=Server.CreateObject(\

connstr=\ conn.Open connstr

Set rs=Server.CreateObject(\ rs.Open sql,conn,2,3 Set ExecuteQuery1=rs End Function '弹出对话框 Sub Alert(msg)

Response.Write(\End Sub

'返回上一页，一般用在判断信息提交是否完全之后 Sub GoBack()

Response.Write(\ Response.Write(\End Sub

'复位向另外的链接 Sub Go(url)

Response.Write(\End Sub %>

2 登录界面代码

(1)index.asp

西安石油大学学生成绩管理系统

35

width=\height=\border=\align=\cellpadding=\

cellspacing=\

西安石油大学本科毕业设计（论文）