www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > master/friends.asp
<!--#include file="check.asp"--> <!-- #include file="../inc/conn.asp" --> <!-- #include file="../inc/function.asp" --> <!--#include file="../inc/asppage.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>friends</title> <link href="css.css" rel="stylesheet" type="text/css"> <script type="text/javascript"> function del(id) { var ok; ok=confirm("删除后不可恢复!您确定要删除此相片吗?"); if (ok==true) { window.location="friends.asp?action=del&id="+id; } else {} } </script> </head> <body topmargin="10" background="images/bg1024.gif"> <% 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() name=RequestFormStr("name") sex=RequestFormNum("sex") content=RequestFormStr("content") Profession=RequestFormStr("Profession") area=RequestFormStr("area") If Profession="" Then Call MessageBox("请上传图片!","") Response.End End If If area="" Then Call MessageBox("请上传图片!","") Response.End End If set rs=Server.CreateObject("ADODB.Recordset") sql="select * from friends" rs.open sql,conn,1,3 rs.addnew rs("name")=name rs("sex")=sex rs("content")=content rs("Profession")=Profession rs("area")=area rs.update rs.close Call MessageBox("添加图片成功!","friends.asp") End Sub Sub editSave() id=RequestFormNum("id") If id<>0 then name=RequestFormStr("name") sex=RequestFormNum("sex") content=RequestFormStr("content") set rs=Server.CreateObject("ADODB.Recordset") sql="select * from friends Where id="& id &"" rs.open sql,conn,2,3 If Not rs.eof then rs("name")=name rs("sex")=sex rs("content")=content rs.update End If rs.close Call MessageBox("修改图片成功!","friends.asp") End If End Sub 'del Sub del() Dim Profession,area id=RequestQueryNum("id") If id<>0 Then Set rs=conn.Execute("Select Profession,area from friends Where id="& id &"") Profession="../"& rs("Profession") area="../"& rs("area") Call delFile(Profession) Call delFile(area) Set rs=nothing conn.Execute("delete From friends Where id="& id &"") Call MessageBox("删除成功!","friends.asp") End If End Sub 'top Sub top() id=RequestQueryNum("id") intTop=RequestQueryNum("top") If id<>0 Then conn.Execute("Update friends set [top]="& intTop &",toptime=Now() Where id="& id &"") If intTop=1 Then strMsg="置顶成功!" Else strMsg="取消置顶成功!" End If Call MessageBox(strMsg,"friends.asp") End If End Sub Sub show() sql="Select * From friends Order by id desc" Set mypage=new xdownpage '创建对象 mypage.getconn=conn '得到数据库连接 mypage.getsql=sql mypage.pagesize=20 '设置每一页的记录条数据为5条 set rs=mypage.getrs() '返回Recordset %> <table width="98%" border="0" class="tableBorder" align=center cellpadding="2" cellspacing="1" bgcolor="#FFFFFF"> <tr> <th height="25" colspan="11">交友资料</th> </tr> <tr> <th class=Forumrow width="50">编号</td> <th class=Forumrow>相片</td> <th class=Forumrow>姓名</td> <th class=Forumrow>性别</td> <th class=Forumrow>年龄</td> <th class=Forumrow>职业</td> <th class=Forumrow>地区</td> <th class=Forumrow width="50">QQ</td> <th class=Forumrow >msn/email</td> <th class=Forumrow >tel</td> <th class=Forumrow align="center" width="200">操作</td> </tr> <% for i=1 to mypage.pagesize If rs.eof Then Exit for End If If rs("sex")=1 Then sexStr="男" Else sexStr="女" End If age=rs("age") If age=0 Then age="" End If %> <tr> <td class=Forumrow><%=rs("id")%></td> <td class=Forumrow><%If rs("photo")<>"" then%><a href="../<%=rs("photo")%>" target="_blank"><img src="../<%=rs("photo")%>" border="0" alt="查看大图" width="50" height="50"></a><%End if%></td> <td class=Forumrow align="left"><%=rs("name")%></td> <td class=Forumrow align="left"><%=sexStr%></td> <td class=Forumrow ><%=age%></td> <td class=Forumrow ><%=rs("profession")%></td> <td class=Forumrow ><%=rs("area")%></td> <td class=Forumrow ><%=rs("qq")%></td> <td class=Forumrow ><%=rs("msn")%><br><%=rs("email")%></td> <td class=Forumrow ><%=rs("tel")%></td> <td class=Forumrow align="center" width="200"> <a href="javascript:del(<%=rs("id")%>)">删除</a></td> </tr> <% rs.MoveNext Next %> <tr align="center"><td colspan="11" class=Forumrow><%mypage.showpage() %></td></tr> </table> <% End Sub Sub add() %> <table width="98%" border="0" class="tableBorder" align=center cellpadding="2" cellspacing="1" bgcolor="#FFFFFF"> <form name="add" method="post" action="friends.asp"> <input type="hidden" name="action" value="save"> <tr> <th height="25" colspan="2">上传相片</th> </tr> <tr> <td height="25" align="right" class=Forumrow>选择上传到分类:</td> <td align="left" class=Forumrow> <Select name="sex"> <% Set rs=conn.Execute("Select * From friendscategory order by id asc") Do While Not rs.eof %> <option value="<%=rs("id")%>"><%=rs("category")%></option> <% rs.MoveNext Loop rs.close Set rs=nothing %> </select></td> </tr> <tr> <td height="25" align="right" class=Forumrow>上传:</td> <td align="left" class=Forumrow style="padding-left:15px;"> <input name="Profession" type="hidden" size="30" style="width:300"> <input name="area" type="hidden" size="30" style="width:300"> <iframe border=0 frameborder=0 framespacing=0 height=22 width="310" marginheight=0 marginwidth=0 name=new_date noresize scrolling=no src="uploadForm.asp?upFolder=friends&inputName=Profession" vspale="0"></iframe> </td> </tr> <tr> <td width="15%" height="25" align="right" class=Forumrow>姓名:</td> <td align="left" class=Forumrow> <input name="name" type="text" value="" size="25" style="width:300"> </td> </tr> <tr> <td height="25" align="right" class=Forumrow>相片描述:</td> <td align="left" class=Forumrow style="padding-left:15px;"> <textarea name="content" rows="5" cols="40"></textarea> <span id="picsmall"></span> </td> </tr> <tr> <td class=Forumrow></td> <td height="30" class=Forumrow> <input type="submit" name="Submit" value="添加相片" class="input1"> <input type="reset" name="Submit" class="input1"></td> </tr> </form> </table> <% End Sub Sub edit() id=RequestQueryNum("id") Set rs=conn.Execute("Select * From friends Where id="& id &"") If Not rs.eof Then %> <table width="98%" border="0" class="tableBorder" align=center cellpadding="2" cellspacing="1" bgcolor="#FFFFFF"> <form name="add" method="post" action="friends.asp"> <input type="hidden" name="action" value="editsave"> <input type="hidden" name="id" value="<%=id%>"> <tr> <th height="25" colspan="2">修改相片</th> </tr> <tr> <td height="25" align="right" class=Forumrow>分类:</td> <td align="left" class=Forumrow> <Select name="sex"> <% Set rsC=conn.Execute("Select * From friendscategory order by id asc") Do While Not rsC.eof %> <option value="<%=rsC("id")%>" <%If rs("sex")=rsC("id") Then Response.Write "selected=""true""" End If %>><%=rsC("category")%></option> <% rsC.MoveNext Loop rsC.close Set rsC=nothing %> </select></td> </tr> <tr> <td width="15%" height="25" align="right" class=Forumrow>姓名:</td> <td align="left" class=Forumrow> <input name="name" type="text" value="<%=rs("name")%>" size="25" style="width:300"> </td> </tr> <tr> <td height="25" align="right" class=Forumrow>相片描述:</td> <td align="left" class=Forumrow style="padding-left:15px;"> <textarea name="content" rows="5" cols="40"><%=rs("content")%></textarea> <span id="picsmall"></span> </td> </tr> <tr> <td class=Forumrow></td> <td height="30" class=Forumrow> <input type="submit" name="Submit" value="修改" class="input1"> <input type="reset" name="reset" class="input1"></td> </tr> </form> </table> <% End If End Sub %> </body> </html>