recon.asp

西风班级信息管理系统 v1.1的源码

<!--#include file="inc/DB.INC"-->
<!--#include file="inc/func.INC"-->
<%
'符号转换函数 sqlstr
 '将数据中的单引号转化为双引号，并且在前面加单引号
 Function Sqlstr(data)
 	sqlstr=Replace(data,"'","''")
 End Function
userid=session("myuserid")
password=session("mypwd")'1代表第一个字段
if isuser(userid,password)=0 then
%>
<script>
alert("你还没有登录，无权进入！");
parent.location.href="main.asp";
</script>
<%
else
'用regflag来判断是插入记录，还是修改记录
dim regflag
regflag=request("regflag")
'插入记录
if regflag="reg" then%>
<%
	set rs=conn.execute("select userid from [resume] where userid='"&userid&"'")
	if not rs.eof then%>
	<script>alert("你已申请过了，不能再申请！");
	parent.location.href="javascript:history.back()";
	</script>
	<%set rs=nothing
	end if
	idcard=trim(sqlstr(request.form("idcard")))'2
	tele=trim(sqlstr(request.form("tele")))'3
	
	'函数名ifhave
	'功能：判断变量是否为空，空则值赋予“暂无”
	Function ifhave(data)
	data=trim(sqlstr(data))
	if data="" then
	data="暂无"
	end if
	ifhave=data
	End Function
	
	function markchange(remark)
	remark=ifhave(remark)
	remark=replace(remark,"<","〈",1)
	remark=replace(remark,">","〉",1)
	markchange=remark
	end function

	email=ifhave(request.form("email"))'4
	zipcode=request.form("zipcode")'5
	zzmm=ifhave(request.form("zzmm"))'6
	address=ifhave(request.form("address"))'7
	campus=ifhave(request.form("campus"))'8
	xueli=ifhave(request.form("xueli"))'9
	major=ifhave(request.form("major"))'10
	thesis=ifhave(request.form("thesis"))'11
	atjob=ifhave(request.form("atjob"))'12
	credit=ifhave(request.form("credit"))'13
	elevel=markchange(request.form("elevel"))'14
	clevel=markchange(request.form("clevel"))'15
	soft=markchange(request.form("soft"))'16
	zuopin=markchange(request.form("zuopin"))'17
	course=markchange(request.form("course"))'18
	gexing=markchange(request.form("gexing"))'19
	practice=markchange(request.form("practice"))'20
	aihao=markchange(request.form("aihao"))'21
    lookcnt=clng(0)'22
	regtime=date'23
	set rs=Server.CreateObject ("ADODB.RECORDSET")
	rs.open "resume",conn,2,2,adCmdTable
	rs.addnew
	rs("userid")=userid
	rs("idcard")=idcard
	rs("tele")=tele
	rs("email")=email
	rs("zipcode")=zipcode
	rs("zzmm")=zzmm
	rs("address")=address
	rs("campus")=campus
	rs("xueli")=xueli
	rs("major")=major
	rs("thesis")=thesis
	rs("atjob")=atjob
	rs("credit")=credit
	rs("elevel")=elevel
	rs("clevel")=clevel
	rs("soft")=soft
	rs("zuopin")=zuopin
	rs("course")=course
	rs("gexing")=gexing
	rs("practice")=practice
	rs("aihao")=aihao
	rs("lookcnt")=lookcnt
	rs("regtime")=regtime
	rs.update
	rs.close
%>
<script language="Javascript">
	alert('注册成功,返回简历首页！')
	parent.location.href="resume.asp"
	</Script>
	<%
	'修该记录
	else
	idcard=trim(sqlstr(request.form("idcard")))'2
	tele=trim(sqlstr(request.form("tele")))'3
	
	'函数名ifhave
	'功能：判断变量是否为空，空则值赋予“暂无”
	Function ifhave(data)
	data=trim(sqlstr(data))
	if data="" then
	data="暂无"
	end if
	ifhave=data
	End Function
	
	function markchange(remark)
	remark=ifhave(remark)
	remark=replace(remark,"<","〈",1)
	remark=replace(remark,">","〉",1)
	remark=replace(remark,chr(13)&chr(10),"<br>",1)
	markchange=remark
	end function

	email=ifhave(request.form("email"))'4
	zipcode=request.form("zipcode")'5
	zzmm=ifhave(request.form("zzmm"))'6
	address=ifhave(request.form("address"))'7
	campus=ifhave(request.form("campus"))'8
	xueli=ifhave(request.form("xueli"))'9
	major=ifhave(request.form("major"))'10
	thesis=ifhave(request.form("thesis"))'11
	atjob=ifhave(request.form("atjob"))'12
	credit=ifhave(request.form("credit"))'13
	elevel=markchange(request.form("elevel"))'14
	clevel=markchange(request.form("clevel"))'15
	soft=markchange(request.form("soft"))'16
	zuopin=markchange(request.form("zuopin"))'17
	course=markchange(request.form("course"))'18
	gexing=markchange(request.form("gexing"))'19
	practice=markchange(request.form("practice"))'20
	aihao=markchange(request.form("aihao"))'21
	set rs=Server.CreateObject ("ADODB.RECORDSET")
	sql="select * from resume where userid='"&userid&"'"
	rs.open sql,conn,1,3
	rs("idcard")=idcard
	rs("tele")=tele
	rs("email")=email
	rs("zipcode")=zipcode
	rs("zzmm")=zzmm
	rs("address")=address
	rs("campus")=campus
	rs("xueli")=xueli
	rs("major")=major
	rs("thesis")=thesis
	rs("atjob")=atjob
	rs("credit")=credit
	rs("elevel")=elevel
	rs("clevel")=clevel
	rs("soft")=soft
	rs("zuopin")=zuopin
	rs("course")=course
	rs("gexing")=gexing
	rs("practice")=practice
	rs("aihao")=aihao
	rs.update
	rs.close
	conn.close
	set conn=nothing%>
	<script language="Javascript">
	alert('修改成功,返回简历首页！')
	parent.location.href="resume.asp"
	</Script>
	<%end if
	end if
	%>