本源代码采用asp编程,风格独特,欢迎大家下载,学习与交流!

源代码在线查看: qq_bq.asp

软件大小: 88 K
上传用户: yufei66900
关键词: asp 源代码
下载地址: 免注册下载 普通下载 VIP

相关代码

				
				
				
				
				
								function jc(zt,dz)
				{
				if(zt==""||dz=="")
					{alert('对不起!不能为空!');
					return false;}
				window.location="qq_bq.asp?cz=tj&dz="+dz+"&zt="+zt;}
				
				function xg(zt,dz,id)
				{if(zt==""||dz=="")
					{alert('对不起!不能为空!');
					return false;}
				window.location="qq_bq.asp?cz=xg&dz="+dz+"&id="+id+"&zt="+zt;}
				-->
				
				
				表情管理
				
								dz= request.querystring("dz")
				zt= request.querystring("zt")
				cz=request.querystring("cz")
				jb=session("qqjb")%>
				
				
								
				if id"" and cz="sc" then
					exec="delete * from pic where id="+id
					conn.execute exec
					conn.close
					response.redirect "qq_bq.asp"
				end if
				 
				if dz"" and cz="tj" then
					exec="insert into pic (zt,dz) values ('" + zt + "''"+dz+"')"
					conn.execute exec
					conn.close
					response.redirect "qq_bq.asp"
				end if
				if dz"" and cz="xg" then
					dz=xrzh(dz)
					exec="update pic set dz='"+dz+"',zt='" + zt + "' where id="+id
					conn.execute exec
					conn.close
					response.redirect "qq_bq.asp"
				end if
				
				exec="select * from pic order by id desc"
				set rs=server.createobject("adodb.recordset")
				rs.open exec,conn,1,1%>
				
				
					编号
					表情
					名称
					地址
					处理
				
								do while not rs.eof
					dz = rs("dz")%>
				
					
					
					
					
					修改
					  
					删除
					
				
										rs.movenext
				loop%>
				
					
					
					
					添加
				
				
								conn.close
				set conn=nothing%>
				
							

相关资源