📄 management.asp
字号:
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("Scripting.FileSystemObject")
End If%></td>
</tr>
<tr>
<td width="187"><font color="#336699">DGmail</font>
<font color="#7C96B8">
<font color="#336699"></font></font></td>
<td width="206">
<%If Not IsObjInstalled("dgmail.convdata") Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("dgmail.convdata")
End If%></td>
</tr>
<tr>
<td width="187"><font color="#336699">ACCESS <%=Language_Management(21)%></font></td>
<td width="206">
<%If Not IsObjInstalled("adodb.connection") Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver("adodb.connection")
End If%></td>
</tr>
</table>
</font>
</td>
</tr>
<tr>
<td height="45" width="126"><font color="#336699"> <%=Language_Management(48)%></font></td>
<td width="427" height="45"> <font color="#7C96B8">
<select name="DYDay" class="bk" size="1">
<option value="1" <%If rs("DYDay")=1 Then Response.Write "selected" %>> 1 </option>
<option value="2" <%If rs("DYDay")=2 Then Response.Write "selected" %>> 2 </option>
<option value="3" <%If rs("DYDay")=3 Then Response.Write "selected" %>> 3 </option>
<option value="4" <%If rs("DYDay")=4 Then Response.Write "selected" %>> 4 </option>
<option value="5" <%If rs("DYDay")=5 Then Response.Write "selected" %>> 5 </option>
<option value="6" <%If rs("DYDay")=6 Then Response.Write "selected" %>> 6 </option>
<option value="7" <%If rs("DYDay")=7 Then Response.Write "selected" %>> 7 </option>
<option value="8" <%If rs("DYDay")=8 Then Response.Write "selected" %>> 8 </option>
<option value="9" <%If rs("DYDay")=9 Then Response.Write "selected" %>> 9 </option>
<option value="10" <%If rs("DYDay")=10 Then Response.Write "selected" %>> 10 </option>
</select> <br> *<%=Language_Management(49)%></font>
</td>
</tr>
<tr>
<td height="45" width="126"><font color="#336699"> <%=Language_Management(52)%></font></td>
<td width="427" height="45">
<select name="SetLine" class="bk" size="1">
<option value="1" <%If rs("SetLine")=1 Then Response.Write "selected" %>> 1 </option>
<option value="2" <%If rs("SetLine")=2 Then Response.Write "selected" %>> 2 </option>
<option value="3" <%If rs("SetLine")=3 Then Response.Write "selected" %>> 3 </option>
<option value="4" <%If rs("SetLine")=4 Then Response.Write "selected" %>> 4 </option>
<option value="5" <%If rs("SetLine")=5 Then Response.Write "selected" %>> 5 </option>
<option value="6" <%If rs("SetLine")=6 Then Response.Write "selected" %>> 6 </option>
<option value="7" <%If rs("SetLine")=7 Then Response.Write "selected" %>> 7 </option>
<option value="8" <%If rs("SetLine")=8 Then Response.Write "selected" %>> 8 </option>
<option value="9" <%If rs("SetLine")=9 Then Response.Write "selected" %>> 9 </option>
<option value="10" <%If rs("SetLine")=10 Then Response.Write "selected" %>> 10 </option>
<option value="11" <%If rs("SetLine")=11 Then Response.Write "selected" %>> 11 </option>
<option value="12" <%If rs("SetLine")=12 Then Response.Write "selected" %>> 12 </option>
<option value="13" <%If rs("SetLine")=13 Then Response.Write "selected" %>> 13 </option>
<option value="14" <%If rs("SetLine")=14 Then Response.Write "selected" %>> 14 </option>
<option value="15" <%If rs("SetLine")=15 Then Response.Write "selected" %>> 15 </option>
</select>
<br> <font color="#7C96B8">*<%=Language_Management(53)%></font>
</td>
</tr>
<tr>
<td height="45" width="126"><font color="#336699"> <%=Language_Management(11)%></font></td>
<td width="427" height="45">
<input type="text" name="SetGroup" size="12" maxlength="20" value="<%=rs("SetGroup")%>" class="bk" style="ime-mode:disabled">
<br> <font color="#7C96B8">*<%=Language_Management(39)%></font>
</td>
</tr>
<tr>
<td height="45" width="126"><font color="#336699"> <%=Language_Management(10)%></font></td>
<td width="427" height="45"> <font color="#7C96B8">
<select name="CodeBit" class="bk" size="1">
<option value="10" <%If rs("CodeBit")=10 Then Response.Write "selected" %>> 1
0 </option>
<option value="20" <%If rs("CodeBit")=20 Then Response.Write "selected" %>> 2
0 </option>
<option value="30" <%If rs("CodeBit")=30 Then Response.Write "selected" %>> 3
0 </option>
<option value="40" <%If rs("CodeBit")=40 Then Response.Write "selected" %>> 4
0 </option>
<option value="50" <%If rs("CodeBit")=50 Then Response.Write "selected" %>> 5
0 </option>
</select> <br> *<%=Language_Management(38)%></font>
</td>
</tr>
<tr>
<td height="45" width="126"><font color="#336699"> <%=Language_Management(12)%></font></td>
<td width="427" height="45"> <font color="#7C96B8">
<select name="ReplaceBody" class="bk" size="1">
<option value="TRUE" <%If rs("ReplaceBody")=TRUE Then Response.Write "selected" %>> <%=Language_Management(22)%> </option>
<option value="Flase" <%If rs("ReplaceBody")=Flase Then Response.Write "selected" %>> <%=Language_Management(23)%> </option>
</select> <br> *<%=Language_Management(43)%></font>
</td>
</tr>
<tr>
<td width="126" height="151"><font color="#336699"> <%=Language_Management(13)%></font></td>
<td height="151" width="427"> <font color="#7C96B8">
<textarea rows="6" name="dy" cols="54" class="bk"><%=rs("dy")%></textarea>
<br> * <%=Language_Management(40)%></font></td>
</tr>
<tr>
<td width="126" height="151"><font color="#336699"> <%=Language_Management(50)%></font></td>
<td height="151" width="427"> <font color="#7C96B8">
<textarea rows="6" name="qrx" cols="54" class="bk"><%=rs("qrx")%></textarea>
<br> * <%=Language_Management(51)%></font></td>
</tr>
<tr>
<td width="126" height="151"><font color="#336699"> <%=Language_Management(14)%></font></td>
<td height="151" width="427"> <font color="#7C96B8">
<textarea rows="6" name="qr" cols="54" class="bk"><%=rs("qr")%></textarea>
<br> * <%=Language_Management(41)%></font></td>
</tr>
<tr>
<td width="126" height="151"><font color="#336699"> <%=Language_Management(15)%></font></td>
<td height="151" width="427"> <font color="#7C96B8">
<textarea rows="6" name="td" cols="54" class="bk"><%=rs("td")%></textarea>
<br> * <%=Language_Management(42)%></font></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" cellspacing="0" cellpadding="0" width="600" align="center" bordercolor="#7C96B8" bordercolordark="#FFFFFF" background="images/mmTo.gIf" bgcolor="#7C96B8" height="13">
<tr>
<td width="556" height="1">
<p align="center">
<input type="Submit" value="<%=Language_Management(24)%>" name="saveSet" class="Tips_bo">
<input type="reSet" value="<%=Language_Management(25)%>" name="B2" class="Tips_bo"></td>
</tr>
</table>
</center>
</div>
</Form>
<%End Sub
'保存修改设置
Sub saveSet()
Set rs=Server.Createobject("adodb.recordset")
dy = Request.Form("dy")
td = Request.Form("td")
qr = Request.Form("qr")
qrx = Request.Form("qrx")
CodeBit = Request.Form("CodeBit")
MailSubject = Request.Form("MailSubject")
AdBody = Request.Form("AdBody")
SMTPHost = Request.Form("SMTPHost")
SetMailzj = Request.Form("SetMailzj")
SMTPUser = Request.Form("SMTPUser")
SMTPPass = Request.Form("SMTPPass")
FromName = Request.Form("FromName")
FromMail = Request.Form("FromMail")
FilePath = Request.Form("FilePath")
SetGroup = Request.Form("SetGroup")
SetLine = Request.Form("SetLine")
DYDay = Request.Form("DYDay")
'是否开启变量替换
If Request.Form("ReplaceBody")<>"FALSE" Then
ReplaceBody=TRUE
Else
ReplaceBody=FALSE
End If
'每组发送邮件数量
If SetGroup<1 Then SetGroup=1
'线程数量
If SetLine<1 Then SetLine=1
'判断输入信息是否正确,和完全
If MailSubject="" or FromName="" or FromMail="" Then
errortext=Language_Management(44)
Call showerror1()
End If
If SMTPHost="" AND (SetMailzj="aspmail" or SetMailzj="aspemail") Then
errortext=Language_Management(45)
Call showerror1()
End If
If SMTPHost<>"" AND (SMTPUser="" or SMTPPass="") Then
errortext=Language_Management(46)
Call showerror2()
End If
'正确保存设置信息
sql="select * from Management"
rs.open sql,conn,3,2
rs("dy")=dy
rs("td")=td
rs("qr")=qr
rs("qrx")=qrx
rs("CodeBit")=CodeBit
rs("ReplaceBody")=ReplaceBody
rs("SetGroup")=SetGroup
rs("SetLine")=SetLine
rs("DYDay")=DYDay
rs("MailSubject")=MailSubject
rs("AdBody")=AdBody
rs("SMTPHost")=SMTPHost
rs("SetMailzj")=SetMailzj
rs("SMTPUser")=SMTPUser
rs("SMTPPass")=SMTPPass
rs("FromName")=FromName
rs("FromMail")=FromMail
rs("FilePath")=FilePath
rs.update
'关闭销毁对象
rs.close
errortext=Language_Management(47)
Call showerror2()
End Sub
Set rs=nothing
conn.close
Set conn=nothing
%>
<p> </p>
</body>
</html> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -