2.asp

ASP程序实现的科技期刊系统

<!--#include file="../Include/AdoConn.asp"-->
<%
set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select  * from XT_TC_User where left(用户编码,3)<>'kjj' and len(用户编码)=6"
rst2.CursorType =3
rst2.CursorLocation =3
rst2.LockType =2
rst2.Open strsql,strconn



for i=1 to rst2.recordcount
'strsql="update XT_TC_User set 有效标志='1' where 用户编码='"&rst2("用户编码")&"'"
	set rst1=server.CreateObject ("ADODB.recordset")
	StrSQL="select  * from XT_TP_UserRole where 用户编码='"&rst2("用户编码")&"'"
	rst1.Open strsql,strconn
	if rst1.EOF then
		strsql="insert into XT_TP_UserRole (用户编码,角色编码)values('"&rst2("用户编码")&"','1')"
		Response.Write strsql+"<br>"
		conn.execute strsql,1
	end if
	rst1.Close
	set rst1=nothing
   rst2.movenext
next
%>