<% %> <% action=RequestSafeStr("action") Select Case action Case "add" Call add() Case "save" Call save() Case "edit" Call edit() Case "editsave" Call editSave() Case "del" Call del() Case "top" Call top() Case else Call show() End Select %> <% Sub save() propertystr=RequestFormStr("propertystr") value=RequestFormStr("value") url=RequestFormStr("url") If propertystr="" Then Call MessageBox("请输入属性名称!","") Response.End End If If value="" Then Call MessageBox("请输入值!","") Response.End End If set rs=Server.CreateObject("ADODB.Recordset") sql="select * from myinfo" rs.open sql,conn,1,3 rs.addnew rs("propertystr")=propertystr rs("value")=value rs.update rs.close Call MessageBox("添加属性成功!","myinfo.asp") End Sub Sub editSave() id=RequestFormNum("id") If id<>0 then propertystr=RequestFormStr("propertystr") value=RequestFormStr("value") url=RequestFormStr("url") If propertystr="" Then Call MessageBox("请输入属性名称!","") Response.End End If If value="" Then Call MessageBox("请输入值!","") Response.End End If set rs=Server.CreateObject("ADODB.Recordset") sql="select * from myinfo Where id="& id &"" rs.open sql,conn,2,3 If Not rs.eof then rs("propertystr")=propertystr rs("value")=value rs.update End If rs.close Call MessageBox("修改成功!","myinfo.asp") End If End Sub Sub show() sql="Select * From myinfo Order by id asc" Set mypage=new xdownpage '创建对象 mypage.getconn=conn '得到数据库连接 mypage.getsql=sql mypage.pagesize=20 '设置每一页的记录条数据为5条 set rs=mypage.getrs() '返回Recordset 'Set rs=conn.Execute("Select * From myinfo Order by id desc") %> <% for i=1 to mypage.pagesize If rs.eof Then Exit for End If %> "> <% rs.MoveNext Next %>

我的资料
编号	属性/值
<%=rs("id")%>	">  ">
<%mypage.showpage() %>

(标准尺寸121X163,只支持jpg和gif格式,上传成功后,)

<% End Sub Sub add() %>

添加属性
属性：
内容：

<% End Sub Sub edit() id=RequestQueryNum("id") Set rs=conn.Execute("Select * From myinfo Where id="& id &"") If Not rs.eof Then %>

修改属性
属性：	" size="25" maxlength="20" style="width:80">
内容：	"" size="25" style="width:300">

<% End If End Sub %>