configmail.asp

IMPORTANT YOU SHOUD LOAD IT DOWN FOR USING

<!--#include file="xp.asp"-->
<%
if session("shopxpadmin")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if session("yjcs")=0 then
response.Write "<div align=center><font size=5 color=red><b>你的权限不够！</b></font></div>"
response.End
end if
end if
%>
<%
dim action
action=request.QueryString("action")
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shopxp_setup ",conn,1,3

rs("webbj5")=trim(request("webbj5"))
rs("webbj6")=trim(request("webbj6"))
rs("webbj7")=trim(request("webbj7"))
rs("webbj8")=trim(request("webbj8"))
rs("webbj9")=trim(request("webbj9"))

rs("DEF_BBS_EmailMode")=request("DEF_BBS_EmailMode")
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('网站资料修改成功！');history.go(-1);</script>"
end if%>
<title>网站设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../img_shopxp/css.css" rel="stylesheet" type="text/css">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F1F3F5">
  <tr> 
    <td height="16"> <div align="center"><font color="#FFFFFF">
        <SCRIPT LANGUAGE="javascript">
                function foreColor(n)
{
  var arr = showModalDialog("selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0");
  if(arr==null)return;
  if(n==null)return;
  if(n==1){form1.table_title_color.value=arr;}
  if(n==2){form1.table_topic_light_color.value=arr;}
  if(n==3){form1.table_topic_dark_color.value=arr;}
  if(n==4){form1.table_border_color.value=arr;}
  if(n==5){form1.forum_bgcolor.value=arr;}
  if(n==6){form1.text_color.value=arr;}
  if(n==7){form1.textt_color.value=arr;}
  if(n==8){form1.textb_color.value=arr;}
  changecolor();
}</SCRIPT>
        <SCRIPT LANGUAGE="vbscript">
                public function changecolor()
                color1.bgcolor=form1.table_title_color.value
                color2.bgcolor=form1.table_topic_light_color.value
                color3.bgcolor=form1.table_topic_dark_color.value
                color4.bgcolor=form1.table_border_color.value
                color5.bgcolor=form1.forum_bgcolor.value
		color6.bgcolor=form1.text_color.value
		color7.bgcolor=form1.textt_color.value
		color8.bgcolor=form1.textb_color.value
                end function
                </SCRIPT>
      </font></div></td>
  </tr>
  <tr> 
    <td height="107" valign="top" bgcolor="#FFFFFF"> 
      <table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
        <form name="form1" method="post" action="configmail.asp?action=save">
          <%set rs=server.CreateObject("adodb.recordset")
            rs.Open "select * from shopxp_setup",conn,1,1%>
          <tr> 
          </tr>
          <tr> 
            <td height="22" colspan="3" align="center"><b><font size="3">邮件发送设置</font></b></td>
          </tr>
          <tr> 
            <td height="22">邮件组件设置：</td>
            <td height="22" colspan="2">
              <select name="DEF_BBS_EmailMode" size="1">
                <option value="0" <%If rs("DEF_BBS_EmailMode") = 0 Then%>selected<%end if%>>禁止发送</option>
                <option value="1" <%If rs("DEF_BBS_EmailMode") = 1 Then%>selected<%end if%>>Aspemail</option>
                <option value="2" <%If rs("DEF_BBS_EmailMode") = 2 Then%>selected<%end if%>>Jmail</option>
                <option value="3" <%If rs("DEF_BBS_EmailMode") = 3 Then%>selected<%end if%>>CDO</option>
              </select>
            </td>
          </tr>
          <tr> 
            <td height="22">&nbsp;</td>
            <td height="22" colspan="2"> （注：本系统优先考虑JMAIL组件）</td>
          </tr>
          <tr> 
            <td height="22">发件邮件：</td>
            <td height="22"> 
              <INPUT NAME="webbj5" TYPE="text" ID="webbj5" SIZE="28" VALUE="<% = rs("webbj5") %>">
            </td>
            <td height="22">&nbsp;</td>
          </tr>
          <tr> 
            <td height="22">发件人：</td>
            <td height="22"> 
              <INPUT NAME="webbj6" TYPE="text" ID="webbj6" SIZE="28" VALUE="<% = rs("webbj6") %>">
            </td>
            <td height="22">&nbsp;</td>
          </tr>
          <tr> 
            <td height="22">邮件服务器：</td>
            <td height="22"> 
              <INPUT NAME="webbj7" TYPE="text" ID="webbj7" SIZE="28" VALUE="<% = rs("webbj7") %>">
            </td>
            <td height="22">&nbsp;</td>
          </tr>
          <tr> 
            <td height="22">帐号：</td>
            <td height="22"> 
              <INPUT NAME="webbj8" TYPE="text" ID="webbj8" SIZE="28" VALUE="<% = rs("webbj8") %>">
            </td>
            <td height="22">&nbsp;</td>
          </tr>
          <tr> 
            <td height="22">密码：</td>
            <td height="22"><strong> 
              <INPUT NAME="webbj9" TYPE="password" ID="webbj9" SIZE="28" VALUE="<% = rs("webbj9") %>">
              </strong></td>
            <td height="22">&nbsp;</td>
          </tr>
          <tr> 
            <td height="22" colspan="3"> 
              <div align="center"> 
                <input type="submit" name="Submit" value="提 交">
                &nbsp;&nbsp; 
                <input type="reset" name="Submit2" value="恢 复">
              </div>
            </td>
          </tr>
        </form>
      </table>
      <%rs.Close
          set rs=nothing%>
    </td>
  </tr>
</table>
<br>
</body>
</html>
<script>
	function regInput(obj, reg, inputStr)
	{
		var docSel	= document.selection.createRange()
		if (docSel.parentElement().tagName != "INPUT")	return false
		oSel = docSel.duplicate()
		oSel.text = ""
		var srcRange	= obj.createTextRange()
		oSel.setEndPoint("StartToStart", srcRange)
		var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
		return reg.test(str)
	}
</script>