[毕业论文] 附页： sql, database, server, update, local

修改模块处理代码：
<%
dim strsql,rst,sconn,conn,sql
strsql="select * from zfc2004.s124 where id='"&id1&"'"
sconn="driver={sql server};server=(local);uid=zfc2004;pwd=zfc2004;database=dbuser"
set conn=server.createobject("adodb.connection")
conn.open sconn
set rst=conn.execute(strsql)
if not rst.eof then
  rst.close()
  strsql="update  zfc2004.s124 set name='"&name1&"',sex='"&sex1&"',birth='"&birth1&"',"
  strsql=strsql&"dept='"&dept1&"',grad='"&grad1&"',zhy='"&zhy1&"'where id='"&id1&"';"
  set rst=server.createobject("adodb.recordset")
  rst=conn.execute(strsql)
  response.redirect("success1.asp")
else
  response.redirect("success4.asp")
end if
%>

浏览模块处理代码：
<%
dim strsql,rs,nums,ary,j,sconn,conn
strsql="select  * from zfc2004.s124 order by name"
sconn="driver={sqlserver};server=(local);uid=zfc2004;pwd=zfc2004;database=dbuser"
set conn=server.createobject("adodb.connection")
conn.open sconn
set rs=conn.execute(strsql)
%>
// 此处输出表头
<%for i=0 to rs.pagesize
  response.write "<tr>"
  response.write "<td bgcolor=#e5e6d3>"&rs("name")&"</td>"
  response.write "</tr>"
  rs.movenext()
  if  rs.eof then
    exit for
  end if
next%>

删除模块处理代码：
<%@ language=vbscript %>
<%dim strsql,rst,nums,ary,j,sconn,conn,id1
id1=trim(request.form("id"))
strsql="select * from zfc2004.s124 where id='"&id1&"'"
sconn="driver={sql server};server=(local);uid=zfc2004;pwd=zfc2004;database=dbuser"
set conn=server.createobject("adodb.connection")
conn.open sconn
set rst=conn.execute(strsql)
if not rst.eof then
  rst.close()
  strsql="delete from zfc2004.s124 where id='"&id1&"'"
  set rst=server.createobject("adodb.recordset")
  rst=conn.execute(strsql)
  response.redirect("success3.asp")
else
  response.redirect("success4.asp")
end if%>

插入代码：
<%name1=trim(request.form("name"))//读取表单中姓名的值
strsql="select * from zfc2004.s12 where id='"&id1&"'"
sconn="driver={sql server};server=(local);uid=zfc2004;pwd=zfc2004;database=dbuser"
set conn=server.createobject("adodb.connection")
conn.open sconn
set rst=conn.execute(strsql)
if not rst.eof then
  rst.close()
  response.redirect("success5.asp")
else
  sqlstr="insert into zfc2004.s12 values('"&name1&"','"&sex1&"','"&birth1&"','"&id1&"','"&dept1&"','"&zhy1&"','"&grad1&"')"
  set rst=server.createobject("adodb.recordset")
  rst=conn.execute(sqlstr)
  response.redirect("success.asp")
end if%>

查询处理代码：
<%dim strsql,conn,rs,aa
aa=request.form("chaxun")
if aa="name" then
strsql="select * from s124 where sno='"&request.form("name")&"'"
end if
set conn=server.createobject("adodb.connection")
conn.open "driver={sql server};database=dbuser;server=(local);uid=zfc2004;pwd=zfc2004"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn%>
<% while not rs.eof %> <font color="#800000"> </font>
<tr> <td><div align="center"><font size="2"><%=rs("sname")%></font></div></td></tr>
<% rs.movenext
wend%>

人数统计代码
<%strsql="select * from zfc2004.s12"
sconn="driver={sql server};server=(local);uid=zfc2004;pwd=zfc2004;database=dbuser"
set conn=server.createobject("adodb.connection")
conn.open sconn
set rst=server.createobject("adodb.recordset")
rst.open strsql,sconn,1,3
count=rst.recordcount%>
更新时间:<%=now%></font>)</p>
南昌大学(共<%=count%>人)</td>
<%rst.close
   strsql="select * from zfc2004.s12 where dept='软件学院'"  
   set rst=server.createobject("adodb.recordset")
   rst.open strsql,sconn,1,3
   countt=rst.recordcount %>
<td width="49%" rowspan="2" height="38">软件学院(共<%=countt%>人)</td>