📄 t.asp

📁 职业培训学校学生档案成绩费用管理系统V1.0免费版.rar

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
dim user
function panduan(a)	
	if month(date())<10 and day(date())<10 then
		user=year(date())&"0"&month(date())&"0"&day(date())&a
	elseif month(date())<10 then
		user=year(date())&"0"&month(date())&day(date())&a
	elseif day(date())<10 then
		user=year(date())&month(date())&"0"&day(date())&a
	else
		user=year(date())&month(date())&day(date())&a
	end if
	panduan=user
end function
dim j,key
key=0
i=1
user=panduan("01")
sql="select * from st_info"	
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
	do while not rs.eof	 
		if user=rs("user_number") then
			i=i+1
			if i<10 then
				j="0"&i
			else
				j=i
			end if
			key=1
			user=panduan(j)
		end if
		rs.movenext	
		if key=1 then
			rs.movefirst
			key=0
		end if
	loop
else
    panduan("01")
end if

rs.close
set rs=nothing

%>
<%=user%>
</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -