📄 llist.asp

📁 应用于高等院校党团思想教育

💻 ASP

字号:


<%if request("action") = "changeuser" then%>
<%
newpath = request("path")

Function GetPP
	dim s
	s=Request.ServerVariables("path_translated")
	GetPP=left(s,instrrev(s,"\",len(s)))
End function
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(newpath)  	
Set fc = f.Files%>
<%For Each f in fc%>
<%
set kkk = fso.OpenTextFile (f,1,true)
www = kkk.readline
my_array = split(www,"	")
	dim conn
	dim connstr
	dim db
	db="dv3sr1.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	conn.Open connstr
	set rs = server.CreateObject ("adodb.recordset")
sql = "select * from [user]"
rs.Open sql,conn,1,3
rs.addnew
		rs("username")= my_array(0)
		rs("userpassword")=my_array(1)
		rs("useremail")=my_array(5)
		rs("userclass")="新手上路"
		Rs("article")=0
       	Rs("sex")= 1
       	Rs("addDate")=NOW()
		rs("face")="pic/image1.gif"
        rs("logins")=1
       	Rs("lastlogin")=NOW()
		rs.update
rs.Close 
set conn = nothing 
kkk.close
next
set fso = nothing
Response.Write "<font color=red size=2><center>用户装换成功！</center>"
%>
<%
else
%>
<html>
<head>
<title>LB5000------DV BOARD V3.0用户转换文件</title>
<body>
<p align="center"><font size="2"><b>LB5000 - DV BOARD V3.0用户转换声明</b></font></p>
<p><font size="2"> 我们编写这个代码的，目的绝对不是和花无缺和山鹰过不去！：）我们仅仅是从用户的角度去为他们着想罢了！</font></p>
<p><font size="2">说明：</font></p>
<p><font size="2">把你的lb5000用户目录的<font color=red><u>绝对路径</u></font>添入下文本框中，然后确定即可！</font></p>
<p><font size="2">例如：d:\wwwroot\home\cgi-bin\lb5000\members\(注意，这只是例子，不要添写这个路径)</font></p>
<p>&nbsp;</p>
<form action="llist.asp?action=changeuser" method=post>
  <div align="center">
    <input type=text name="path" size="50">
    <input type=submit value="确定">
  </div>
</form>
<p>&nbsp;</p>
<p align="center"><font size="2">赣州一品网技术有限公司(www.1ping.com)</font></p>
</body>
</html>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -