中小型企业内部网(Intranet)的实现

<textarea name="Comments" COLS="66" ROWS="11"></textarea></strong></font></p> 

’留言之提交和清除按钮 

<div align="left"><p>         <font face="宋体" 

color="#008040"><strong><input type="submit" value="提 交(Submit)" name="Submit" 

style="font-family: 隶书; font-size: 10pt; color: rgb(0,0,255); font-weight: bold"><input 

type="reset" value="清 除(Reset)" name="Reset" 

style="font-family: 隶书; font-size: 10pt; color: rgb(0,0,255); font-weight: bold"></strong></font></p> 

</div>

</form>

</body>

</html> 

gbook.as

’<% %>均为ASP语句 

<% 

’将数据中的单引号替换为双引号并在前后加上单引号 

Function SqlStr( data ) 

SqlStr = "'" & Replace( data, "'", "''" ) & "'" 

End Function 

’ 利用Request对象从addguest.htm表单中取输入之留言信息 

Name = Request("Name") 

Email = Request("Email") 

Url = Request("Url") 

Country = Request("Country") 

State = Request("State") 

City = Request("City") 

Comments = Request("Comments") 

’ 判断姓名和内容是否为空,否则给出提示信息 

If Name <> "" And Comments <> "" Then 

’ 创建ADODB对象 

Set conn = Server.CreateObject("ADODB.Connection") 

’打开ODBC数据源guestbook 

conn.Open "guestbook","","" 

’对信息按数据库中字段定义长度进行处理,因插入数据时其值不能为空,故由空格表示 

Name = Left( Name, 10 ) 

if email="" then 

Email=" " 

else