in.asp

来自「本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流」· ASP 代码 · 共 36 行

<!--#include file="conn.asp"-->
<%
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
%>