📄 config.asp
字号:
<%
'== BEGIN CONSTANTS ============================================================
' I'm going to use some fake Consts here just to make my life easier.
' I do this because I have an application var that stores site wide
' DB connection info, username, and password. As constants I'd have
' to truly hard code them and I also couldn't do the Server.MapPath
' for Access. After these few lines however, they are treated
' STRICTLY as if they were true Consts and are not modified in any
' other place!
Dim DB_CONNECTIONSTRING, DB_USERNAME, DB_PASSWORD
Dim DB_DATE_DELIMITER
' Default Access DB connection info
DB_CONNECTIONSTRING = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & Server.MapPath("database/forum.mdb") & ";"
' Some alternate drivers. I've tested against all 3 of these.
'DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("database/forum.mdb") & ";"
DB_CONNECTIONSTRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database/forum.mdb") & ";"
DB_USERNAME = ""
DB_PASSWORD = ""
' Sample SQL Server connection info
'DB_CONNECTIONSTRING = "Provider=SQLOLEDB; Data Source=sql_server_name_or_ip; Initial Catalog=db_name;"
'DB_USERNAME = "user"
'DB_PASSWORD = "pass"
' Date delimiter: Access likes # / SQL likes '
DB_DATE_DELIMITER = "#"
' Automatically enables / disables sending of e-mail and all related functions
' If you turn this on be sure you configure the SendEmail function
' below to use your component as well as
' CHANGE THE MESSAGE AND ADDRESSES!
Const SEND_EMAIL = False
' In new verions this should be set in the forums table. This constant
' is used to determine the grouping if that field doesn't exist.
Const MESSAGE_GROUPING = "" ' "每月" / "一周" / ""
'== END CONSTANTS ==============================================================
'== BEGIN SUBS & FUNCTIONS =====================================================
Sub ShowHeader()
%>
<HTML>
<HEAD>
<TITLE>欢迎您进入恒润科技论坛</TITLE>
<STYLE type=text/css>
td,p,li,input,select {font-size:14px;}
A {
TEXT-DECORATION: none
}
A:visited {
COLOR: purple; TEXT-DECORATION: none
}
A:active {
COLOR: #ff0000
}
A:hover {
COLOR: #ff0000; TEXT-DECORATION: underline
}
</STYLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<table border="0" width="774" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="774" valign="top" height="89">
<table border="0" cellpadding="0" cellspacing="0" width="770">
<tr>
<td height="63" width="199"><img src="../images/logo-w.gif" width="200" height="60"></td>
<td valign="top" width="487" height="63">
<div align="center"><img src="../images/banner.gif" width="468" height="60"></div>
</td>
<td width="84" height="63">
<p><a href="../../products/matlab/matlab60.htm"><img src="../images/matlab6.jpg" width="78" height="60" border="0"></a></p>
</td>
</tr>
<tr>
<td valign="bottom" width="199" height="20">
<p align="center">
<script language=javascript src="../date.js"></script>
<hr size="1">
</td>
<td height="20" colspan="2" align="left">
<table width="565" border="1" cellspacing="0" cellpadding="2" bordercolor="#000000" bordercolordark="#ffffff" bgcolor="#0099CC">
<tr>
<td height="23" width="80" align="center" bgcolor="#0099CC"><a href="../index.htm"><font color="#FFFFFF">首页</font></a></td>
<td height="23" width="80" align="center"><a href="../company/index.htm"><font color="#FFFFFF">公司</font></a></td>
<td height="23" width="80" align="center" bgcolor="#0099CC"><a href="../products/index.htm"><font color="#FFFFFF">产品</font></a></td>
<td height="23" width="80" align="center" bgcolor="#0099CC"><a href="../solution/index.htm"><font color="#FFFFFF">解决方案</font></a></td>
<td height="23" width="81" align="center"><a href="../support/index.htm"><font color="#FFFFFF">技术支持</font></a></td>
<td height="23" width="81" align="center" bgcolor="#CC6600"><a href="../forum/index.asp"><font color="#FFFFFF">论坛</font></a></td>
<td height="23" width="81" align="center"><a href="../../company/wanted.htm"><font color="#FFFFFF">招聘英才</font></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center"></div>
<p> </p>
<H1 align="center"><font color="#003300" style="font-size:15pt">欢迎您进入恒润科技论坛</font></H1>
<blockquote>
<blockquote>
<blockquote>
<HR style="font-size:11pt" COLOR="#003300" align="center" width="769">
<font color="#003300" style="font-size:12pt"><%
End Sub
Sub ShowFooter()
%></font>
<hr style="font-size:11pt"color="#0000FF" align="center" width="769">
<p><font color="#003300"><b>MATLAB相关网站：</b></font></p>
<div align="left">
<table width="92%" border="0" align="center">
<tr>
<td width="24%"><font color="#0000A0"><a href="http://gbyang.4y.com.cn"><font color="#003300">MATLAB园地</font></a>
</font></td>
<td width="33%"><font color="#0000A0"><a href="http://mathtools.top263.net/"><font color="#003300">Matlab精品网站</font></a>
</font></td>
<td width="43%"><font color="#0000A0"><a href="http://matlab.myrice.com/"><font color="#003300">MATLAB大观园</font></a>
</font></td>
</tr>
<tr>
<td width="24%"><font color="#0000A0"><a href="http://mathworld.yeah.net/"><font color="#003300">应用数学软件乐园</font></a></font></td>
<td width="33%"><a href="http://www.mathtools.net"><font color="#003300">Mathtools.net</font></a></td>
<td width="43%"><a href="http://matlab.netsh.net"><font color="#003300">Matlab语言与应用---交流论坛</font></a></td>
</tr>
<tr>
<td width="24%"> </td>
<td width="33%"> </td>
<td width="43%"> </td>
</tr>
</table>
</div>
</blockquote>
</blockquote>
</blockquote>
<blockquote>
<blockquote>
<table width="694" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td valign="middle" align="center" colspan="7"><font color="#009999">All
Copyright By China Beijing HIRAIN Co.,LTD</font> </td>
</tr>
<tr>
<td valign="middle" align="center" colspan="7">
<div align="center"><font color="#009999">电话：010-82021950 传真：010-62073600</font></div>
</td>
</tr>
<tr>
<td valign="middle" align="center" colspan="7">
<div align="center"><font color="#009999">E-mail:<a href="mailto:webmaster_hirain@hirain.com">webmaster_hirain@hirain.com</a></font>
</div>
</td>
</tr>
<tr>
<td valign="middle" align="center" colspan="7"> </td>
</tr>
</table>
<div align="left"></div>
</blockquote>
</blockquote>
</BODY>
</HTML>
<%
End Sub
' You'll need to modify this function to use whatever email compnent
' you prefer if you want to use email notification.
Sub SendEmail(strFrom, strTo, strSubject, strBody)
' DB and email object vars for email notification
Dim objCDOMail
' Make sure emailing is enabled
If SEND_EMAIL Then
' Create an instance of the NewMail object.
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' Set the properties of the object
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
' Send the message!
objCDOMail.Send
Set objCDOMail = Nothing
End If
End Sub ' SendEmail
'== END SUBS & FUNCTIONS =======================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -