[求助]版主帮下忙！解答一下！ - 编程论坛

#2

yms1232007-09-17 15:11

用Replace替换的方法做模版
最终生成类可以使用我以前写的
 https://blog.bc-cn.net/user1/1193/archives/2007/4610.shtml
考虑下面的内容
数据表设计
名称,userinfo
字段列表
username 用户名
password 密码
realname 真实姓名
sex 性别
age 年龄
regdate 注册日期

根据这个表做静态模版页面
这个模版页面html代码的存在那里
可以根据楼主的需要来存
<html>
<head>
<title>{$username}-的用户信息</title>
</head>
<body>
用户名:{$username} 
真实姓名{$realname} 
性别{$sex} 
年龄{$age} 
注册日期{$regdate} 
</body>
</html>

#3

yms1232007-09-17 15:22

接下来是数据库对象模块
userinfo.asp
<%
Class UserInfo
'类属性
Private mUserName
Private mPassword
Private mAge
Private mSex
Private mRegDate
'封装过程
Private Sub ReadRecordSet(rsUInf)
mUserName=rsUInf("username")
mPassword=rsUInf("Password")
mSex=rsUInf("Sex")
mRegDate=rsUInf("RegDate")
End Sub
'公开过程
Public Sub Read(conn)
Dim rsUInf
Dim tSql
tSql="select * from [userinfo] where username='"&mUserName&"'"
rsUInf.Open tSql,conn,1,1
IF rsUInf.EOF Then
Read=False
Else
ReadRecordSet rsUInf
Read=True
End IF
rsUInf.Close
Set rsUInf=Nothing
End Sub
'属性过程
Public Property Let RegDate(vData)
mRegDate=vData
End Property
Public Property Get RegDate()
RegDate=mRegDate
End Property
Public Property Let Sex(vData)
mSex=vData
End Property
Public Property Get Sex()
Sex=mSex
End Property
Public Property Let Age(vData)
mAge=vData
End Property
Public Property Get Age()
Age=mAge
End Property
Public Property Let Password(vData)
mPassword=vData
End Property
Public Property Get Password()
Password=mPassword
End Property
Public Property Let UserName(vData)
mUserName=vData
End Property
Public Property Get UserName()
UserName=mUserName
End Property
End Class
%>

#4

yms1232007-09-17 15:35

最关键的静态页生成代码




<%
'变量对象初始化代码
Dim oUser,MHtml
Set oUser=New UserInfo
Set MHtml=New MarkHTML
'读取用户信息
oUser.UserName=Request("UsName")
IF oUser.Read()=False Then
Response.Write "用户不存在或用户名错误"
Else
'以下假设模版HTML代码已经读取
'省略模版读取代码
Dim tempHtml'假设改变量已读取模版HTML代码
'替换关键字模版生成HTML的关键代码
tempHtml=Replace(tempHtml,"{$username$}",oUser.UserName)
tempHtml=Replace(tempHtml,"{$Sex$}",oUser.Sex)
tempHtml=Replace(tempHtml,"{$Age$}",oUser.Age)
tempHtml=Replace(tempHtml,"{$RegDate$}",CStr(oUser.RegDate))
MHtml.TemplateBody=tempHtml
MHtml.FilePath=Server.MapPath("html/")
MHtml.FileName="test.htm"
MHtml.FSOMetHod 'FSO方法生成HTML
Response.Redirect "test.htm"'重定向到生成好的HTML网页
End IF
%>

#5

孤独冷雨2007-09-17 16:57

谢谢了！