在留板中怎么传送图片 - ASP技术论坛

无根泉

等　级：新手上路
威　望：4
帖　子：853
专家分：0
注　册：2004-11-4

第 22 楼

得分:0

楼主呀，
留言板中数据库存的不是图片，还是图片的路径，
你得到那个路径，然后放到数据库中就可以了，

我很菜，但我很努力！

2005-05-18 16:20

无根泉

等　级：新手上路
威　望：4
帖　子：853
专家分：0
注　册：2004-11-4

第 24 楼

得分:0

发表留言'这是我的那个，我就直接拷过来了 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <script language="javascript"> function aa() { document.form1.img.src="images/"+document.form1.pic.options[document.form1.pic.selectedIndex].value+".gif"; } function bbb(dd) {document.form1.con.value+=dd;} </script> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>发表留言</title> <link href="css/t.css" rel="stylesheet" type="text/css"> <style type="text/css">  </style> <link href="css/t1.css" rel="stylesheet" type="text/css"> <link href="css/lian.css" rel="stylesheet" type="text/css"> <link href="css/w.css" rel="stylesheet" type="text/css"> <link href="css/x.css" rel="stylesheet" type="text/css"> </head>

<body> <table width="760" border="0" align="center" cellpadding="0" cellspacing="0" background="13.GIF" class="t1"> <tr> <td><form name="form1" method="post" action="sly.asp"> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="t"> <tr> <td width="771" height="20" valign="middle">  ｜<a href="ly.asp">发表留言</a>｜<a href="index.asp">查看留言</a>｜<a href="seach.asp">搜索留言</a>｜<a href="loginad.asp">管理登录</a>｜<a href="javascript:location.reload()">刷新页面</a>｜ </td> </tr> </table> <br> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="t"> <tr> <td height="16">你的位置：<a href="index.asp">首页</a>>发表留言</td> </tr> </table> <br> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="t" > <tr> <td width="122" height="20"><div align="right">网友：</div></td> <td width="258"><input name="um" type="text" class="t" id="um"></td> <td width="368" colspan="2" rowspan="5" valign="bottom">头像： <select name="pic" size="1" class="t" id="pic" onChange="aa()"> <% for i=1 to 15 %> <option value="<%= i %>"><%= i %></option> <%next %> </select> <img src="images/1.gif" name="img" width="80" id="img"> 悄悄话： <select name="qiao" size="1" class="t" id="qiao"> <option value="1" selected>否</option> <option value="2">是</option> </select></td> </tr> <tr> <td height="20"><div align="right">性别：</div></td> <td><input name="sex" type="radio" class="t" value="男" checked> 先生 <input name="sex" type="radio" class="t" value="女"> 女士</td> </tr> <tr> <td height="23"><div align="right">QQ：</div></td> <td><input name="qq" type="text" class="t" id="qq"></td> </tr> <tr> <td height="20"><div align="right">E-mail：</div></td> <td><input name="email" type="text" class="t" id="email" size="40"></td> </tr> <tr> <td height="20"><div align="right">个人主页：</div></td> <td><input name="home" type="text" class="t" id="home" value="http://" size="40"></td> </tr> <tr> <td><div align="right">表情：</div></td> <td colspan="3"> <% for i=1 to 7 %> <input name="biao" type="radio" class="t" value="<%= i %>" <% If i=1 Then %>checked<% End If %>> <img src="biao/<%=i %>.gif" width="15" height="15" > <% next %></td> </tr> <tr> <td><div align="right">留言内容：</div></td> <td colspan="3"><textarea name="con" cols="80" rows="6" class="t" id="con" style="overflow:auto "></textarea></td> </tr> <tr> <td><div align="right">点击插入：</div></td> <td height="20" colspan="3"> <%for i=1 to 20 %> <img src="face/<%= i %>.gif" width="20" height="20" onClick="bbb('[<%= i%>]')" > <% next %> </td> </tr> <tr> <td> </td> <td height="26" colspan="3"><input name="Submit" type="submit" class="t" value="提交"> <input name="Submit2" type="reset" class="t" value="重置"></td> </tr> </table> <br> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="w"> <tr> <td background="3.jpg" ><div align="center"> [ <a href="/gywm/index.asp">关于我们 </a><a href="http://www.df88.net/jianzhan.htm">网站建设 </a><a href="mailtcd0314@cd0314.com">联系我们 </a>人才招聘加盟合作 ]<br> <span class="b">承德热线版权所有严禁复制 </span><br> 网络实名: <a href="http://www.cd0314.com">承德热线 </a><a href="http://www.cd0314.com/fangchan/fcindex.asp">承德楼市 </a><a href="http://www.cd0314.com/rcpd/rcindex.asp">承德招聘 </a><a href="http://www.cd0314.com/jk/index.asp">承德健康 </a><a href="http://www.cd0314.com/qiche/index.asp">承德车市</a><br> </div></td> </tr> </table>

</form></td> </tr> </table> </body> </html>

保存留言 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  <% um=ck(request("um")) sex=ck(request("sex")) qq=ck(request("qq")) email=cak(ck(request("email"))) home=cak(ck(request("home"))) pic=request("pic")&".gif" qiao=request("qiao") biao=request("biao")&".gif" con=cak(ck(request("con"))) ipp=request.ServerVariables("REMOTE_ADDR") if um="" then errof=errof+"* 用户名不能为空!\n" elseif len(um)<2 or len(um)>10 then errof=errof+"* 用户名不能小于2位或大于10位! \n" end if if qq="" then response.Write("") elseif not isnumeric(qq) then errof=errof+"* QQ必须是数字! \n" elseif len(qq)<5 or len(qq)>10 or left(qq,1)=0 then errof=errof+"* 好像没有你这样的QQ吧! \n" end if if email<>"" then aa=instr(email,"@") select case aa 'errof=errof+"E-mail的位数不能大于200位! \n" case 0 errof=errof+"* E-mail的格式不正确! \n" case else aa=split(email,"@") if left(email,1)="@" or right(email,1)="@" then errof=errof+"* E-mail的格式不正确! \n" elseif instr(aa(1),".")=0 or left(aa(1),1)="." or right(aa(1),1)="." then errof=errof+"* E-mail的格式不正确! \n" else bb=split(aa(1),".") if len(bb(1))<2 or len(bb(1))>4 then errof=errof+"* E-mail的格式不正确! \n" end if end if end select end if if len(home)>200 then errof=errof+"* 主页长度不能大于200! \n" end if if con="" then errof=errof+"* 留言内容不能为空呀! \n" elseif len(con)>60000 then errof=errof+"* 不好意思，你的留言内容过多!" end if

%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title><% If errof<>"" Then %>出错了呀!ˇ_ˇ<% Else %>留言提交成功!*_*<% End If %>

</title> </head>

<body> <% If errof<>"" Then response.Write("<script>alert('"&errof&"');history.back();</script>") else sql="insert into sub(um,sex,qq,email,biao,pic,home,qiao,atime,con,ip)" sql=sql&"values('"&um&"','"&sex&"','"&qq&"','"&email&"','"&biao&"','"&pic&"','"&home&"','"&qiao&"','"&now()&"','"&con&"','"&ipp&"')" conn.execute sql response.Write("<script>alert('发表成功！');window.location='index.asp';</script>") response.Redirect("index.asp") end if%> </body> </html>

我很菜，但我很努力！

2005-05-19 10:30