📄 uptxt.asp
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="Language.asp" -->
<%
Server.scriptTimeout=999999
Call loaderror()
Call showwebdata()
Call Language_var(Language,"uptxt")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<link rel="stylesheet" href="images/styles.css" type="text/css">
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#Include File="head.asp" -->
<%
If Request.Form("saveSet") <> "" Then
'进行转换
Call conv()
Call saveSet()
ElseIf Request.QueryString("success") <> "" Then
'显示成功信息
Call success()
Else
'转换主页面,设置
Call main()
End If
'转换主页面,设置
Sub main()
%>
<br><br><br>
<Form method="POST" action="uptxt.asp">
<center>
<table border="1" cellspacing="0" cellpadding="0" width="455" align="center" bordercolor="#7C96B8" bordercolordark="#FFFFFF" height="137">
<tr>
<td colspan="2" background="images/mmTo.gIf" height="20" width="451"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699"><%=Language_uptxt(0)%></font></div>
</td>
</tr>
<tr>
<td height="41" width="101"><font color="#336699"> <%=Language_uptxt(1)%></font></td>
<td width="348" height="41"><font color="#7C96B8">
<input type="text" name="txtname" size="32" class="bk">
<br> * </font><font color="#7C96B8"><%=Language_uptxt(2)%></font></td>
</tr>
<tr>
<td width="449" height="86" colspan="2"><font color=#7C96B8>*<%=Language_uptxt(3)%></font></td>
</tr>
</table>
</center>
<div align="center">
<center>
<table border="1" cellspacing="0" cellpadding="0" width="455" align="center" bordercolor="#7C96B8" bordercolordark="#FFFFFF" background="images/mmTo.gIf" bgcolor="#7C96B8" height="1">
<tr>
<td width="554" height="1">
<p align="center">
<input type="Submit" value="<%=Language_uptxt(4)%>" name="saveSet" class="Tips_bo">
<input type="reSet" value="<%=Language_uptxt(5)%>" name="B2" class="Tips_bo"></td>
</tr>
</table>
</center>
</div>
</Form>
<%End Sub
'转换数据
Sub saveSet()
If IsObjInstalled("dgmail.convdata") Then
'安装了动感在线邮件组件,使用组件进行转换
startime=timer()
Set DGConv = Server.CreateObject("dgmail.convdata")
DGConv.txt2access trim(Request.Form("txtname")),DBName
Endtime=timer()
Else
'直接使用FSO转换
startime=timer()
txtname=trim(Request.Form("txtname"))
on error resume Next
Dim objfso, objFile, data, i, sql, rootID, child, times
Set objfso=Server.Createobject("scripting.filesystemobject")
Set objFile=objfso.openTextFile(Server.mappath(txtname))
data=split(objfile.readline,chr(1))
Set rs=Server.Createobject("adodb.recordset")
sql="select Top 1 * from mail where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("mail")=data(0)
rs.update
rs.requery
Do until objfile.atendofstream
data=split(objfile.readline,chr(1))
sql="select Top 1 * from mail where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("mail")=data(0)
rs.update
rs.requery
Loop
rs.close
Set objFile=nothing
Set fso=nothing
Endtime=timer()
End If
'结束转换跳转到成功信息页面
Response.Redirect "uptxt.asp?success=dg&usertime="&Endtime-startime
Response.End
End Sub
'显示成功信息
Sub success()
%>
<br><br><br> <center>
<table border="1" cellspacing="0" cellpadding="0" width="481" align="center" bordercolor="#7C96B8" bordercolordark="#FFFFFF" height="22">
<tr>
<td background="images/mmTo.gIf" height="20" width="477"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699"> <%=Language_uptxt(6)%> </font></div></td>
</tr>
<tr>
<td width="475" height="86">
<p align="center"><font color="#FF0000"><%=Language_uptxt(7)%></font><br><font color="#336699"><%=Language_uptxt(9)%><b><% = Request.QueryString("usertime")%></b> s</p>
</td>
</tr>
</table>
</center>
<%
End Sub
'显示不要做任何事情的提示
Sub conv()
Response.Write "<br><br>"&Language_uptxt(8)&"<br>"
End Sub
'检测动感在线组件的支持情况
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = FALSE
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = TRUE
Set xTestObj = Nothing
Err = 0
End Function
%>
</body>
</html>
<%
'关闭销毁对象
Set rs=nothing
conn.close
Set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -