谁可以给我一点后台程序的代码

happyamang 2003-10-31 12:33:22
各位大虾们:小弟不才,现在有一个通讯录的程序,我想做一个后台管理的程序,就是在后台给数据库增删和修改数据.
...全文
187 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
happyamang 2003-11-03
  • 打赏
  • 举报
 回复
谢谢楼上几位给我的思路和代码,我将我的东东上传了,访问地址:www.chinazcpg.com/tongxunlu
请大家帮我看一下,是要这样子的,就是每个注册成功的用户都可以看到所有已注册的用户的资料,并用可以搜索,但是他只能修改自已的东西,管理员有管理用户的权利,可以对用户进行增删改.我是一位初学者,哪位能够根据我的具体情况给我一个这样的页面找码,
附:<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="33%" height="25"><font color="#999999">姓名：</font><font color="#FF0000"><% =trim(rs("TrueName")) %></font></td>
<td><font color="#999999">性别： </font><font color="#FF3333">
<%
Sex=trim(rs("Sex"))
If Sex=0 Then
%><input type="radio" name="Sex" value="0" checked>
男
<input type="radio" name="Sex" value="1">
女</font><font color="#FF3333">*</font><% Else %><font color="#FF0000">
<input type="radio" name="Sex" value="0">
男
<input name="Sex" type="radio" value="1" checked>
女</font><font color="#FF3333">*</font>
<%End If%>
</td>
<td width="33%"><font color="#999999">昵称：<input name="WebName" type="text" Class="fr2" id="WebName" value="<% =trim(rs("WebName")) %>" size="20">
</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="33%" height="25"><font color="#999999">国家：<input name="TrueNameCountry" type="text" Class="fr2" id="TrueNameCountry" value="<% =trim(rs("TrueNameCountry")) %>" size="20">
</font></td>
<td><font color="#999999">城市：<input name="TrueNameCity" type="text" Class="fr2" id="TrueNameCity" value="<% =trim(rs("TrueNameCity")) %>" size="20">
</font></td>
<td width="33%"><font color="#999999">生日：</font><font color="#999999"><input name="TrueNameYear" type="text" Class="fr2" id="TrueNameYear" value="<% =trim(rs("TrueNameYear")) %>" size="4">年<input name="TrueNameMoon" type="text" Class="fr2" id="TrueNameMoon" value="<% =trim(rs("TrueNameMoon")) %>" size="2">月<input name="TrueNameDay" type="text" Class="fr2" id="TrueNameDay" value="<% =trim(rs("TrueNameDay")) %>" size="2">日</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"><font color="#999999">住址：<input name="Address" type="text" Class="fr2" id="Address" value="<% =trim(rs("Address")) %>" size="60">
</font></td>
<td width="33%"><font color="#999999">邮编：<input name="PostCode" type="text" Class="fr2" id="PostCode" value="<% =trim(rs("PostCode")) %>" size="20">
</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="33%" height="25"><font color="#999999">电话：<input name="TrueNameTel" type="text" Class="fr2" id="TrueNameTel" value="<% =trim(rs("TrueNameTel")) %>" size="20">
</font></td>
<td><font color="#999999">传真：<input name="TrueNameFax" type="text" Class="fr2" id="TrueNameFax" value="<% =trim(rs("TrueNameFax")) %>" size="20">
</font></td>
<td width="33%"><font color="#999999">手机：<input name="TrueNameMobile" type="text" Class="fr2" id="TrueNameMobile" value="<% =trim(rs("TrueNameMobile")) %>" size="20">
</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" height="25"><font color="#999999">电子邮件：<input name="Email" type="text" Class="fr2" id="Email" value="<% =trim(rs("Email")) %>" size="30">
</font></td>
<td><font color="#999999">个人网址：<input name="HomePage" type="text" Class="fr2" id="HomePage" value="<% =trim(rs("HomePage")) %>" size="30">
</font></td>
</tr>
</table>
hozi 2003-10-31
  • 打赏
  • 举报
 回复
还要有修改数据的功能：
sql="update tablename set colsname='aaaa' where id=2"
oConn.execute (sql)
tigerwen01 2003-10-31
  • 打赏
  • 举报
 回复
后台程序思路：
1、连接数据库（以ACCESS为例）：
Set oConn=Server.CreateObject("adodb.connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
　　　　　　　　　 "Dbq=server.MapPath("mydb.mdb");" & _
　　　　　　　　　 "Uid=;" & _
　　　　　　　　　 "Pwd=;"
2、增加数据：
sql="insert into table(eamil)values('xxx@163.com')"
oConn.execute (sql)
3、删除数据
sql="delete from table where id=1"
oConn.execute (sql)
leiaming 2003-10-31
  • 打赏
  • 举报
 回复
<%@ Language=VBScript %>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<% 'If Session(strCookieURL & "www.3rom.com") = "1369852475213" and Session("count")<10 Then %>
<!--#INCLUDE FILE="conn.asp" -->
<%
if session("Clients_id")="" then
'response.redirect "login.asp"
response.write "<script>alert ('对不起，你已超时了,请重新登录！');</script>"
Response.write("<script language=javascript>parent.location='../login.asp'</script>")
end if
'set rs=Server.createObject("adodb.Recordset")
'strSql="Select * from Class"
'rs.open strSql,conn
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>AddNews</title>
<link rel="stylesheet" type="text/css" href="style.css">
<%
dim rs
dim sql
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from ANclass order by Nclassid asc"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("Nclass"))%>","<%= trim(rs("classid"))%>","<%= trim(rs("Nclassid"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;

function changelocation(locationid)
{
document.myform.Nclassid.length = 0;
var locationid=locationid;
var i;
var j=0;
for (i=0;i < onecount; i++)
{ document.myform.Nclassid.style.visibility='visible';
if (subcat[i][1] == locationid)
{ j=j+1;
document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
if (j==0)
{
document.myform.Nclassid.style.visibility='hidden';
document.myform.Nclassid.options[document.myform.Nclassid.length]= new Option("无子栏目","");}

}

</script>
<script language="JavaScript">
function check(object)
{
if (myform.Title.value=="")
{
alert ("请输入标题" );
myform.Title.focus();
return false;
}
if (object.Author.value=="")
{
alert ("请输入作者名" );
myform.Author.focus();
return false;
}
if (object.Content.value=="")
{
alert ("请输入内容" );
myform.Content.focus();
return false;
}

}
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body bgcolor="#FFFFFF">
<BR>
<BR>
<form method="POST" name="myform" action="AddNews2.asp?active=DoIt" onSubmit="return check(this);">

<table align="center" border="1" cellPadding="0" cellSpacing="0" width="79%" height="397">
<tr>
<td width="67" valign="top" align="right" nowrap bgcolor="#F7F2E6" height="23"><font color="#000000">标　题：</font></td>
<td width="625" colspan="2" height="23"><input id="Title2" name="Title" title="Title" size="20">
**</td>
</tr>
<tr>
<td valign="top" align="right" nowrap bgcolor="#F7F2E6" height="23"><font color="#000000">副标题：</font></td>
<td colspan="2" height="23"><input id="Title" name="Title2" title="Title" size="20"></td>
</tr>
<tr>
<td width="67" valign="top" align="right" nowrap bgcolor="#F7F2E6" height="23"><font color="#000000">作　者：</font></td>
<td width="625" colspan="2" height="23"><input type="text" name="Author" size="20">
务必填写作者 **</td>
</tr>
<tr>
<td width="67" valign="top" align="right" nowrap bgcolor="#F7F2E6" height="23"><font color="#000000">出　处：</font></td>
<td width="625" colspan="2" height="23"><input id="Freind" name="Freind" title="Friend" size="20">
</td>
</tr>
<tr>
<td width="67" valign="top" align="right" nowrap bgcolor="#F7F2E6" height="23"><font color="#000000">链　接：</font></td>
<td width="625" colspan="2" height="23"><input id="Link" name="Link" title="Link" size="20">
例：http://www.engires.net</td>
</tr>
<tr>
<td align="right" vAlign="top" width="67" nowrap bgcolor="#F7F2E6" height="23"><font color="#000000">类　别：</font></td>
<td width="625" colspan="2" height="23">
<%
sql = "select * from Aclass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%>
<select name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1">
<option selected value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option>
<% dim selclass
selclass=rs("classid")
rs.movenext
do while not rs.eof
%>
<option value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select> <select name="Nclassid">
<%sql="select * from ANclass where classid="&selclass
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
%>
<option selected value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option>
<% rs.movenext
do while not rs.eof%>
<option value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option>
<% rs.movenext
loop
end if
rs.close
set rs = nothing
conn.Close
set conn = nothing
%>
</select>
** </td>
</tr>
<tr>
<td align="right" vAlign="top" width="67" nowrap bgcolor="#F7F2E6" rowspan="3" height="184"><font color="#000000">内　容：</font></td>
<td width="313" rowspan="3" height="184"><textarea id="textarea" name="Content" rows="12" cols="49"></textarea></td>
<td width="312" valign="top" align="left" height="108"><br>
如果要添加图片，请在要加入图片的地方写入[image<font color="#FF0000">1</font>][image<font color="#FF0000">2</font>]......[image<font color="#FF0000">N</font>],否则按默认方式处理</td>
</tr>
<tr>
<td width="312" valign="top" align="left" height="30"><select size="1" name="Image">
<option value="0">请选择图片数</option>
<% For i=1 to 10 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select></td>
</tr>
<tr>
<td width="312" valign="top" align="left" height="18"></td>
</tr>
<tr>
<td width="67" valign="top" align="right" nowrap bgcolor="#F7F2E6" height="25"><font color="#000000">　</font></td>
<td width="625" colspan="2" height="25"><input id="submit" name="submit" type="submit" value=" 确 定 ">
          <input type="reset" value=" 全部重写 " name="Reset"></td>
</tr>
</table>
</form>

</body>

</html>
<%
'rs.close
set rs=Nothing
'conn.close
'set conn=Nothing
%>
<%
'Else
'Response.redirect "Login.asp"
'End If
%>
ygghost 2003-10-31
  • 打赏
  • 举报
 回复
www.asp300.net
dafei0320 2003-10-31
  • 打赏
  • 举报
 回复
我刚刚做好！！
还是热的！
修改：
<!--#include file=conn.asp-->
<% dim name,qq,sex,age,tel,shouji,ip,page
dim dizhi,beizhu,post,email,shijian,sexwen,username
username=request("user")
name=trim(request.form("name"))
sex=trim(request.form("sex"))
age=trim(request.form("age"))
qq=trim(request.form("qq"))
shouji=trim(request.form("shouji"))
dizhi=trim(request.form("dizhi"))
post=trim(request.form("post"))
email=trim(request.form("email"))
tel=trim(request.form("tel"))
beizhu=trim(request.form("beizhu"))
page=trim(request.form("page"))
ip=trim(request.ServerVariables("LOCAL_ADDR"))
shijian=now()
name=request("user")
%>
<% if not isnumeric(qq) or not isnumeric(age) or not isnumeric(post) then
response.write"<center>你的输入有错误！年龄,QQ和邮编都是数字吗？<br></center>"
response.write "<a href=javascript:history.back()><center>返回再来</center></a>"
response.end
end if
if sex="男" then
sexwen="先生"
else
sexwen="小姐"
end if

%>
<%
sql="update user1 set beizhu='"&beizhu &"', name='"&name&"', sex='"&sex&"' ,dizhi='"&dizhi&"',email='"&email&"',page='"&page&"',shouji='"&shouji&"',tel='"&tel&"',time1='"&shijian&"',ip1='"&ip&"',qq='"&qq&"',post='"&post&"' where name='"&username&"'"
sql1="update user1 set age="&age&" where name='"&username&"'"
conn.execute sql
conn.execute sql1
%>

<%
sql1="select * from user1 where name='"&username&"'"
rs.open sql1,conn,1,3
while not rs.eof
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改好友资料</title>
<style type="text/css">
<!--
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
background-color: #CCFFFF;
text-decoration: none;
}
a:active {
}
-->
</style>
</head>

<body>
<div align="center">
<table width="760" height="94" border="1">
<tr>
<td width="120" height="88"><img src="pic/logo.gif" width="120" height="84"></td>
<td width="624"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="640" height="84">
<param name="movie" value="pic/shang.swf">
<param name="quality" value="high">
<embed src="pic/shang.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="640" height="84"></embed></object></td>
</tr>
</table>
<table width="760" height="28" border="1" bordercolor="#33CCFF">
<tr>
<td width="509" height="22"> <div align="center"><font color="#FF33FF"><a href="add.htm" title="添加新好友" target="_blank">添加新好友</a>
     <%=rs("name")%><%=sexwen%>修改后的资料</font>   <a href="add.htm" title="添加新好友" target="_blank">
</a></div></td>
</tr>
</table>

<table border="1" bordercolor="#FF00FF">
<tr>
<td width="72">姓名:</td>
<td width="301"><%=rs("name")%></td>
</tr>
<tr>
<td>年龄</td>
<td><%=rs("age")%></td>
</tr>
<tr>
<td>性别:</td>
<td><%=rs("sex")%></td>
</tr>
<tr>
<td>电话:</td>
<td><%=rs("tel")%></td>
</tr>
<tr>
<td>移动电话:</td>
<td><%=rs("shouji")%></td>
</tr>
<tr>
<td>邮编</td>
<td><%=rs("post")%></td>
</tr>
<tr>
<td>QQ:</td>
<td><%=rs("qq")%></td>
</tr>
<tr>
<td>电子信箱:</td>
<td><%=rs("email")%></td>
</tr>
<tr>
<td>通信地址:</td>
<td><%=rs("dizhi")%></td>
</tr>
<tr>
<td>备注:</td>
<td><%=rs("beizhu")%></td>
</tr>
<tr>
<td height="36" colspan="2">
<center>
<a href="javascript:window.close()"> 关闭窗口 </a><a href="index.asp">返回首页</a>
</center>
<a href="index.asp"> </a></td>
</tr>
</table>
<table width="760" border="0">
<tr>
<td><div align="left">
<p><img src="pic/xian.gif" width="760" height="20"></p>
<p align="center"><font color="#6699FF"><strong>通讯录</strong></font>
制作:<a href="http://127.0.0.1/index.asp" title="访问大飞主页">大飞</a> </p>
</div></td>
</tr>
</table>
<%rs.movenext
wend
rs.close
%>
</div>
</body>
</html>
萝卜波 2003-10-31
  • 打赏
  • 举报
 回复
随便下载一个全站程序研究一下就可了

1。中国站长网下载 http://www.chinaz.com/download/
靠自己的特色 越做越大，并且提供建站相关的一切东西更新速度也很快!。

2。KK66下载中心 http://down.kk66.com
瘦死的骆驼比马大,是全国最多的建站源码基地,但垃圾很多,新改版，但是界面很烂，有些不伦不类！

3。ASP300 http://www.asp300.com
选择他,其实主要是他在国内做的很早,又是比较早进行收费的代码下载站点,姑且不论他收费的对错,但网络告别免 费是迟早的,这一点,他做的很先进,他提供的代码也是一些商业全站很不错的东西,虽然有人说他拿其他站点免费的当 自己的,但是就现在各个下载站提供他们的代码都要加上一句"ASP300会员代码"就可以看出他们做的还不错。

4。源码之家 http://www.mycodes.net
也是比较早的源码下载站点,好象今年是改版过的,提供的代码现在也很不错了,里面还有很多商业的东西哟,现在库存 少!！更新速度还可以。

5。鲲翔下载 http://www.ftpshow.com
后起之秀,靠做论坛起家做然后做下载的,商业的东西很多,更新速度很快,从质量上已经超过了有些老的代码下载站, 代码全部是本地提供不限速下载，从很多方面有了改观，好象看下载站已经慢慢走出了，靠商业程序吃饭的路子！但 是有些程序还希望多测试！

6。中国源码中心 http://www.cncode.com
老牌的,名字挺大的,沉寂了很长一段时间后重新改版,提供的东西不怎么样,全是其他站有的,说明比较齐全,现在几 乎又不更新了。

7。ASPSUN 源码联盟 http://www.aspsun.com
东西很系统，下载界面也很新异，东西也还不错

8 。中国源码下载站 http://www.downcode.com/down/index.asp
不太了解不过看样子 和库存 还可以。

9。狮山下载 http://www.zy263.com
新起来的下载站 也是以源码下载为主，原来是以转其他站的连接提供下载，现在有了自己的下载空间，靠商业程 序和到处广告发展起来，但是东西很混乱，希望不要走入以商业代码为主要提供的怪圈，走上ASPDOWN的老路。

10。好极网的源码下载 http://www.haojw.com/code/
不存在什么特色 只是站长网，代码的再提供，只是专业化比较好

11。阳光下载 http://down.89dns.net/

12。思同php代码下载 http://www.mstong.net/

13。我要搜 http://www.51s.net

以上是最新的代码下载站点排行，有些站点已经从上面除名了，原因很简单，ASPDOWN已经停止下载，有些几乎几个 月没有更新，上面只是我比较了解的站点，其他的我不熟悉，我只是把我认为最好的代码站点，按照质量，容量，特 色，更新速度，人气来综合排名的，希望能给大家提供一些方便有什么不妥，请大家见谅！

另附一些源码论坛，以上网站的官方交流论坛 如站长论、K666休闲论坛、源码之家论坛、鲲翔家园等论坛都很不错。
还有如下一些新兴站点的BBS源码栏目：
5IASP http://www.5iasp.com
联迅浩天 http://www.lssky.net
落伍者源码版块 http://www.im286.com/forumdisplay.php?fid=35
站长资迅 http://www.11k.net
翱翔网校 http://www.netxiao.com
设计论坛 http://www.1708.net/bbs
网贝论坛 http://netbei.com/bbs/
Android 仿美团网,大众点评购买框悬浮效果之修改版
服务可以在后台运行，即使用户离开应用程序，悬浮窗也能继续存在。 8. **生命周期管理**：了解并处理Activity和Service的生命周期，确保在适当的时候创建、显示和销毁悬浮窗，避免内存泄漏和性能问题。 9. **多...
微信小程序+java后台
博主是大四学生，毕业设计做的是微信小程序+java后台。...希望像我一样的小程序初学者看了这篇文章，可以少花费一些不必要的时间，少踩一点坑。 开发一个微信小程序需要https域名以及服务器，博主购买的是阿里...
逻辑写在SQL中还是写在后台程序代码中
 到底逻辑是应该写在后台程序中还是SQL中？这个话题其实没少讨论过，我这里仅想把一些看法总结下。如果这个问题交给数据库专家去回答，那么十有八九的答案是写在SQL中，理由如下。 性能尽在掌控中，集群，共享存....
php后台发布微信小程序
分享一个百度资料很少的功能，不知道有没有人看见过一些后台可以不需要使用微信开发工具就可以发布代码到微信后台，它们是扫码让你登录开发工具，然后就可以进行上传代码的一个效果实现 其实效果不难，他们用到的是...
微信小程序实现与后台PHP交互
接下来将讲后台如何与前台进行数据及图片之间的交互，相信这一点是很多人所关注的，因为当时我实在团队中负责后台开发，因此对前端不是特别了解，这里我会贴出前端开发时的部分代码截图，微信小程序的官方api介绍...
ASP

28,408

社区成员

356,956

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章