大哥大姐们谁帮帮我呀?_百度知道
大哥大姐们谁帮帮我呀?
师题,让写留言本程序,要管理,删除等,要太复杂,我网找,都看懂,太复杂,谁能给我自写特简单种?谢!重赏呀!!!!!
提问者采纳
做留言本重要道理弄明白我些自前写些简单程序兴趣加我QQ： 注：加我请注明意
提问者评价
多谢谢了，终于明白了，嘿嘿
其他类似问题
按默认排序
其他3条回答
&!--index.asp--&&%
content=request.form(&content&
emale=request.form(&emale&sub_time=date() connstr=&DBQ=&+server.MapPath(&db1.mdb&+&;driver={microsoft access driver (*.mdb)};& set conn=server.createObject(&adodb.connection& conn.open connstr sql=&select * from book order by id desc&set rs=server.createObject(&adodb.recordset&rs.open sql,conn,1,1%&&title&留言&/title&&center&&a href=index.asp&签写留言&/a&&center&&form action=add.asp method=post&姓名&input type=text name=name&&br&emale&input type=text name=emale&&br&留言&textarea rows=&5& name=&content& cols=&80&&&/textarea&&/p&
&p&&input type=&submit& value=&提交& name=&B1&&&input type=&reset& value=&重写& name=&B2&&&/p&&/form&&!--开始显示留言--&&table border=0 width=100%&&%
do while not rs.Eof or rs.bof%&&tr&&td&&hr color=blue&&br&&font color=blue size=3pt face=&Arial&&第&%=rs(&ID&%&条留言:&/font&&font
size=3pt face=&Arial&&&%=rs(&content&%&&/font&&/td&&/tr&&tr&&td&&font color=blue size=3pt face=&Arial&&时间:&/font&&font
size=3pt face=&Arial&&&%=rs(&sub_time&%&&/font&&&&font color=blue size=3pt face=&Arial&&Emale:&/font&&font
size=3pt face=&Arial&&&%=rs(&emale&%&&/font&&&&font
size=3pt face=&Arial&&&a href=&del.asp?id=&%=rs('ID')%&&&删除&/a&&/font&&/td&&/tr&&%
rs.movenext
rs.closeset rs=nothing
conn.close
set conn=nothing%&&/table&&/center&
我以前写的代码,好久都没用ASP了,你自己拿去参考一下,是用文件将留言的内容保存在磁盘上的....-----------------------------------------submit.asp提交留言的ASP文件-----------------------------------------&% @language=vbscript %&&% option explicit response.expires=0 const forreading=1,forwriting=2,forappending=8 const tristateusedefault=-2 const tristatetrue=-1 const tristatefalse=0 dim objfs,objtexts,strline dim strb1,strt1,strs1 strb1=request.form(&B1&) strt1=request.form(&T1&) strs1=request.form(&S1&)%&&html&&head&&meta http-equiv=&Content-Language& content=&zh-cn&&&meta http-equiv=&Content-Type& content=&text/ charset=gb2312&&&title&提交问题&/title&&/head&&body&&% if(strb1&&&提交&) then%&
&!--webbot BOT=&GeneratedScript& PREVIEW=& & startspan --&&script Language=&JavaScript& Type=&text/javascript&&&!--function FrontPage_Form1_Validator(theForm){
if (theForm.T1.value == &&)
alert(&请在 T1 域中输入值。&);
theForm.T1.focus();
return (false);
if (theForm.T1.value.length & 1)
alert(&在 T1 域中，请至少输入 1 个字符。&);
theForm.T1.focus();
return (false);
if (theForm.S1.value == &&)
alert(&请在 S1 域中输入值。&);
theForm.S1.focus();
return (false);
if (theForm.S1.value.length & 1)
alert(&在 S1 域中，请至少输入 1 个字符。&);
theForm.S1.focus();
return (false);
return (true);}//--&&/script&&!--webbot BOT=&GeneratedScript& endspan --&&form method=&POST& action=&&% request.servervariables(&script_name&) %&& onsubmit=&return FrontPage_Form1_Validator(this)& language=&JavaScript& name=&FrontPage_Form1&&
&p&你的姓名:&!--webbot bot=&Validation& b-value-required=&TRUE& i-minimum-length=&1& --&&input type=&text& name=&T1& size=&20&&&/p&
&p&你发现的问题:&/p&
&!--webbot bot=&Validation& b-value-required=&TRUE& i-minimum-length=&1& --&&textarea rows=&13& name=&S1& cols=&78&&&/textarea&&/p&
&p align=&center&&&input type=&submit& value=&提交& name=&B1&&
&input type=&reset& value=&重置& name=&B2&&&/p&
&/form&&% else
set objfs=server.createobject(&scripting.filesystemobject&)
if objfs.fileexists(&c:\problem.txt&)=true then
set objtexts=objfs.opentextfile(&c:\problem.txt&,forappending,false,tristatefalse)
set objtexts=objfs.createtextfile(&c:\problem.txt&,false,false)
objtexts.writeline &------------------------------------------------------------------------&
objtexts.writeline &问题提交时间： & & NOW & &，& & & 提交者IP：& & request.servervariables(&remote_addr&)
objtexts.writeline &------------------------------------------------------------------------&
objtexts.writeline (&*姓名：& & strt1)
objtexts.writeline &*提交内容：&
objtexts.writeline strs1
response.write(&提交成功,谢谢你&)%&&% end if' objtexts.close set objtexts=nothing set objfs=nothing%&&hr&&a href=&javascript:history.back(1)&&返 回&/a&&/body&&/html&-------------------------------------look.asp查看留言的文件=====================================&% @language=vbscript %&&% option explicit response.expires=0 const forreading=1,forwriting=2,forappending=8 const tristateusedefault=-2 const tristatetrue=-1 const tristatefalse=0 dim objfs,objtexts,strline set objfs=server.createobject(&scripting.filesystemobject&) if objfs.fileexists(&c:\problem.txt&)=true then
set objtexts=objfs.opentextfile(&c:\problem.txt&,forappending,false,tristatefalse) else
set objtexts=objfs.createtextfile(&c:\problem.txt&,false,false)
objtexts.writeline (&*记录创建于& & NOW) end if set objtexts=objfs.opentextfile(&c:\problem.txt&,forreading,tristatefalse) response.write(&所有已经提交过的问题如下:&br&&br&&)%&&hr&&% do while objtexts.atendofstream&&true
strline=objtexts.readline
strline=server.htmlencode(strline)
response.write strline & &&br&& & vbcrlf loop objtexts.close set objtexts=nothing set objfs=nothing%&&hr&&a href=&javascript:history.back(1)&&返 回&/a&&title&察看提交的问题&/title&
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁谁能借我一个CF屠龙号垃圾枪也行。只要有屠龙。希望哪喂大哥哥，大姐姐，能借我玩玩。我也能帮你升级什么的。小弟多谢。
谁能借我一个CF屠龙号垃圾枪也行。只要有屠龙。希望哪喂大哥哥，大姐姐，能借我玩玩。我也能帮你升级什么的。小弟多谢。
补充：我只是想玩玩屠龙。没有别的想法。真的。我真不是骗子。希望能借我玩屠龙号， &我就这点金币了。如果有人玩的话我不挤。
我有屠龙和雷神，火麒麟，装备绝对齐全，包括C4工具，爆破包，弹夹等。有意加Q，但不是免费的，愿意价格再谈
可以我没钱呀。
CF的话我不会玩的，号码闲着也是闲着，但免费是不可能的，你要免费我相信没有人会给你的。
啊啊啊那能给我QQ远程上上吗？
那好，采纳答案的话我给你玩30天，不要盗我号啊
其他回答 (4)
额 一下叫大哥哥 大姐姐 一会就叫小弟 你什么意思
不对14.我只是想玩玩屠龙号。有屠龙就行。不管什么坏枪。
老子都满级了，还用你练级？
我不怎么敢借了，就是有英雄级武器，然后借了。之后不是被盗就是密码一直被改，还有经常来问密码，还恶搞，我无语得要死了。
我去 ，我只是想玩玩屠龙没玩过。
你好lz
我有火麒麟天龙和黑骑士与屠龙。
如果lz需要。请留下QQ邮箱后采纳。约5小时后发送至你的邮箱。(^_^)
发了没有？
等待您来回答
穿越火线领域专家各位大哥哥大姐姐们，我的CF背包里只有一个炸弹格，其他两个怎么开？大家帮帮我！_百度知道
各位大哥哥大姐姐们，我的CF背包里只有一个炸弹格，其他两个怎么开？大家帮帮我！
楼主你好，一个背包只能装一个手雷买个手雷包的话可以装三个，一个手雷.一个闪光弹.一个烟雾弹采纳！！！
其他类似问题
按默认排序
其他10条回答
你好、那个炸弹格是手雷包需要用钱购买、购买之后你就可以背包里面装三个雷了。谢谢
买个手雷包求采纳
要买个手雷包
买一个手雷包就可以了！望采纳！
手雷包就可以咯一炸一闪光一烟雾
手雷包，500CF点30天
买手雷包，5人民币
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁大哥大姐们能给我详细的介绍一下河南省三门峡市卢氏县所有的高中吗？_百度知道
大哥大姐们能给我详细的介绍一下河南省三门峡市卢氏县所有的高中吗？
大哥大姐们能给我详细的介绍一下河南省三门峡市卢氏县所有的高中吗？包括升学率，管理，院校位置，现在的在校生，越具体越好，跪谢！
那麻烦你再给我说一下二高行不，他的地理位置什么的，谢谢了。
提问者采纳
卢氏县有三所高中，一高、二高、三高。后来三高合并到一高了，也就是现在的卢氏一高，是省级示范性高中，老校区在校生大概一千多吧，新校区四千多，新校区在以坝代路。学校管理比较严格，升学率还可以，小县城嘛，肯定不能和大城市比了。总体来说算是三门峡很好的高中了，特别是新校区相当的漂亮。如果你想去那里上学，可以考虑一下。从那里毕业快两年了，现在如何也不清楚，只能说这么多了，希望能帮到你。
提问者评价
其他类似问题
卢氏县的相关知识
其他4条回答
卢氏二高是在五里川镇内。
学生升学率，管理什么的怎么样
只有一高，现在没有二高了，这是一高的新校区，点击可看图片
呵呵，这个我可以帮你，我就是卢氏一高毕业的。从前卢氏有三个高中，但后来由于一高建了新校区，再加上卢氏学生少，三个高中就合并成一个了。学校不错，新校区特别漂亮，硬件、软件设施都不错，就是饭不好吃，呵呵。升学率也在逐年提高，这个关键看自己了！
卢氏二高是在五里川镇内，现在已经没有了，全部合县城一高了，一高就那样，我是那毕业的，还行，听说现在人多，不好管理，那儿不是一个好的选择
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁