xgsm1.asp

一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.

<!--#include file="pwd.asp" -->
<!--#include file="tsgl_conn.inc" -->
<%
cbh=request.form("tbh")
tdm=left(cbh,2)
csm=request.form("tsm")
czzm=request.form("tzzm")
if (czzm="") then
	czzm="不详 "
end if
ccbs=request.form("tcbs")
if (ccbs="") then
	ccbs="不详"
end if
ccbrq=request.form("tcbrq")
if (ccbrq="") then
	ccbrq=date()
end if
cdj=request.form("tdj")
if (cdj="") then
	cdj=0.0
end if
ccs=cint(request.form("tcs"))
ckcs=cint(request.form("tkcs"))
clrjj=request.form("tlrjj")

function sqlstr(data)
	sqlstr="'"&replace(data,"'","''")&"'"
end function

sql="update "&tdm&" set sm="&sqlstr(csm)&",zzm='"&czzm&"',cbs='"&ccbs&"',cbrq='"&ccbrq&"',dj="&cdj&",cs="&ccs&",kcs="&ckcs&",lrjj='"&clrjj&"' where bh='"&cbh&"'"
tsgl_conn.execute(sql)
response.redirect "xgsm0.asp"
%>