?? 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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -