schoolsave.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<% set rs=server.createobject("adodb.recordset")
sql="select * from school where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("name")=request("name")
rs("taxis")=request("taxis")
rs.update


%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from school"
rs.open sql,conn,1,1
n=rs.recordcount
rs.movefirst
set fso=server.createobject("scripting.filesystemobject")
path=server.mappath("../inc/school.asp")
k="Case"""
k2=""""
k3="response.write"""

set file=fso.opentextfile(path,2,true)
file.write("<"&"%")&vbcrlf
file.write("Function school(str)")&vbcrlf
file.write("Select Case str")&vbcrlf
do while not rs.eof
id=rs("id")
name=rs("name")
i=i+1
file.write(k&id&k2)&vbcrlf
file.write(k3&name&k2)&vbcrlf
if i>=n then exit do
rs.movenext
loop
file.write("end select")&vbcrlf
file.write("end function")&vbcrlf
file.write("%"&">")&vbcrlf
file.close
set file=nothing
set fso=nothing
%>
<%
response.redirect"school.asp"
%>