WEB源码(ASP,PHP,...)

开发平台：

VBScript

Img_edit.asp：源码内容

							<!--#include file="bsconfig.asp"-->
<%if Request.QueryString("no")="eshop" then
id=request("id")
title=request("title")
Entitle=request("Entitle")
img=server.htmlencode(Trim(Request("img")))
If title="" Then
response.write "SORRY <br>"
response.write "请输入更新内容的标题"
response.end
end if
If img="" Then
response.write "SORRY <br>"
response.write "内容不能为空"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Img where id="&id
rs.open sql,conn,1,3
rs("title")=title
rs("Entitle")=Entitle
rs("img")=img
rs.update
rs.close
response.redirect "Img.asp"
end if
%>
<%
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from Img where id="&id, conn,3,3
%>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
	<tr>
		<td class="a1" height="25" align="center"><strong>修改形象</strong></td>
	</tr>
	<tr class="a4">
		<td align="center">
      <br>
      <table width="550" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <form method="post" name="myform" action="Img_edit.asp?no=eshop">
            <input type=hidden name=id value=<%=id%>>
            <td><div align="center"> 
							<table width="100%" border="0" cellspacing="2" cellpadding="3">
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">形象名称</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="title" maxlength="30" size="25" value="<%=rs("title")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">English名称</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="Entitle" maxlength="30" size="25" value="<%=rs("Entitle")%>"></td>
								</tr>
								<tr> 
									<td height="22" bgcolor="#E3E3E3"><div align="right">形象证书</div></td>
									<td bgcolor="#E3E3E3"><input name="img" type="text" id="img" value="<%=rs("img")%>" size="30" maxlength="50"> 
										<font color="#FF0000"> * 图片地址</font></td>
								</tr>
								<tr> 
									<td height="25" colspan="2" bgcolor="#C0C0C0"> 
										<div align="center"> 
											<input name="submit" type="submit" value="确定">
											&nbsp; 
											<input name="reset" type="reset" value="从来">
										</div></td>
								</tr>
								<tr> 
									<td colspan="2">图片上传</td>
								</tr>
								<tr> 
									<td colspan="2"><div align="center"> 
											<iframe name="ad" frameborder=0 width=100% height=48 scrolling=no src='../WebEdit/Upload_File.asp'></iframe>
										</div></td>
								</tr>
							</table>
						</div></td>
          </form>
        </tr>
      </table>
      <br>
		</td>
	</tr>
</table>
<BR>
<%htmlend%>

						