admin_stuid_save.asp

提供学生证 的在线查询功能。界面上面是录入框

<!--#include file="../conn.asp"-->
<!--#include file="../inc/UpLoadClass.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<%
Dim sqltabname
Login_Judge
dim request2
Dim rs_file

Dim lj_id,Col_id,pro_id,cla_id
Dim stuid,name,IdentityNO,con
Dim pic

'建立上传对象
set request2=New UpLoadClass
	'设置为手动保存模式
	request2.AutoSave=2
	request2.FileType="gif/jpg"
	'设置服务器文件保存路径
	request2.SavePath="../upload/"
	'设置重命名
	'request2.AutoSave = 0
	'打开对象，默认为 gb2312 字符集，故没有显示设置
	request2.Open()
	lj_id = che(request2.form("lj_id"))
	Col_id = che(request2.form("Col_id"))
	pro_id = che(request2.form("pro_id"))
	cla_id = che(request2.form("cla_id"))
	stuid = che(request2.form("stuid"))
	name = che(request2.form("name"))
	IdentityNO = che(request2.form("IdentityNO"))
	con = che(request2.form("con"))
	id = che(request2.form("id"))
	action = che(request2.form("action"))
	If id="" Then id=0
	powerid=112
	isn Name,"姓名",1
	isn IdentityNO,"身份证号",1
	isn lj_id,"年届",1
	isn Col_id,"系所",1
	isn pro_id,"专业",1
	isn cla_id,"班级",1
	pic=""
	addidentity IdentityNO,id,"IdentityNO"
	addidentity IdentityNO,id,"stuid"
	request2.MaxSize=204800
	if request2.Save("file1",0) Then pic=request2.Form("file1")
	set rs=server.createobject("adodb.recordset")
	sql=Sqlinfo("","admin_stu","id="&id,"","","")
	rs.Open Sql, Conn, 1, 3
	If action="saves" Then 
		rs.AddNew
		sqlstable
	Else
		If Not rs.eof Then 
		sqlstable
		Else
			errormsg "参数错误"
		End If
	End If
	rs.Update
	rs.close
	rightmsg "admin_stuid.asp?action=list&lj_id="&lj_id&"&Col_id="&Col_id&"&pro_id="&pro_id&"&cla_id="&cla_id,"添加成功"
Sub addidentity(styno,strid,listname)
	set rs_file=server.createobject("adodb.recordset")
	Sql_Conditions=listname&"='"&styno&"'"
	If strid<>"0" Then Sql_Conditions= Sql_Conditions & " and id<>"&strid
	sql=Sqlinfo("*","admin_stu",Sql_Conditions,"","","")
	rs_file=connopen(sql)
	If IsArray(rs_file) Then '为空 
			errormsg "身份证号或学号已存在！"
	End If 
End Sub
Sub sqlstable()
	rs("lj_id") = lj_id
	rs("Col_id") = Col_id
	rs("pro_id") = pro_id
	rs("cla_id") = cla_id
	rs("stuid") = stuid
	rs("name") = name
	rs("IdentityNO") = IdentityNO
	rs("con") = con
	If pic<>"" Then rs("pic") = pic
End Sub
%>