看看以前的同事写的代码

older · 2013-07-05T06:18:18Z

About us ... Products Categories "> " width="96" height="88" border="0"/> ">

• 请不要在回答技术问题时复制粘贴 AI 生成的内容

This topic created in 4712 days ago, the information mentioned may be changed or developed.

<div id="content">
<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1 direction=up width=1 height=1 delay="1">
<div class="content-top"><img src="images/content-top.jpg" width="938" height="4" /></div>
<div class="content-zhong">
<div class="con-left">
<p class="font">About us</p>
<p class="neirong"><%=left(rs4("eabout"),600)%>...</p>
<p class="font">Products Categories</p>
<div style="margin-top:10px; padding-left:20px;">
<% set rs=server.CreateObject("adodb.recordset")
sql="select * from product where audit=1 order by id desc"
rs.open sql,conn,1,3%>
<%
do while not rs.eof
%>
<p style="width:106px; float:left; padding:5px; line-height:34px; height:130px; background:url(images/cp-bg.jpg) no-repeat;">
<span><a href="products.asp?sort_id=<%=rs("sort_id")%>"><img src="../pic/<%=rs("pic")%>" width="96" height="88" border="0"/></a></span><br />
<a style="color:#000;" href="products.asp?sort_id=<%=rs("sort_id")%>"><%=rs("ecpmc")%></a></p>
<%
rs.movenext
loop
rs.close
%>
</div>

</div>
<div class="con-right">

</div>

<div class="content-buttom"><img src="images/content-buttom.jpg" width="938" height="4" /></div>
</div>

</body>
</html>

div

class

48 replies • 1970-01-01 08:00:00 +08:00

d0a1ccec

Jul 5, 2013

我和我的小伙伴们都惊呆了.asp

66beta

Jul 5, 2013

玩asp的就这水平了，当年我也这样，～～呵呵呵呵呵

thinkif

Jul 5, 2013

这得看是多久以前。。。

refresh

Jul 5, 2013

asp居然还在人间

yibin001

Jul 5, 2013

我和我的小伙伴们都惊呆了

Ricepig

Jul 5, 2013

写的不错，快速直接满足需求，哈哈

solo7net

Jul 5, 2013

asp亮了

older

Jul 5, 2013

很难想象他当时是在什么状态写下这样的代码

Feobe

Jul 5, 2013

这是几年前的代码了？
四五年前的话，勉强情有可原。

takwai

Jul 5, 2013

当年写的ASP，不都是差不多一样嘛。

timothyye

Jul 5, 2013

ASP.... 古董级别的代码了

ninjai

Jul 5, 2013

没看出来多大问题，asp就这样了

fangzhzh

Jul 5, 2013

我是web外行, 但是:
1 我在网页里看到了select *, 难道不是写select* 都要拖出去TJJTDS吗?

2 逐条操作的代码, 这页面, 估计sql server经不起上千的访问

CoX

Jul 5, 2013

看到这个，忍不住贴下我们公司官方网站的一个文件，忍不住想给重写了

http://gist.github.com/bjjay/41bfd1aa8b3a77f7b345.js

CoX

Jul 5, 2013

http://gist.github.com/bjjay/41bfd1aa8b3a77f7b345

CoX

Jul 5, 2013

https://gist.github.com/bjjay/41bfd1aa8b3a77f7b345.js

yibin001

Jul 5, 2013

CoX

Jul 5, 2013

https://gist.github.com/bjjay/41bfd1aa8b3a77f7b345

yibin001

Jul 5, 2013

呃。。本想帮一下楼上。。。结果发现我也不会。。
@CoX

CoX

Jul 5, 2013

又不会帖gist的代码了，不折腾了

CoX

Jul 5, 2013

@yibin001 呵呵，很久以前帖成功过，现在又不记得了

subpo

Jul 5, 2013

http://gist.github.com/bjjay/41bfd1aa8b3a77f7b345.js

Hyperion

Jul 5, 2013

看到"MARQUEE", 我就颤抖了... 这是啥年代的标签了...

yibin001

Jul 5, 2013

@CoX
是不是因为这个gist是私有的原因？我看文件名是一个hash值啊

refresh

Jul 5, 2013 via iPad

@CoX 牛逼的代码

binjoo

Jul 5, 2013

凑合着用吧。

Sunyanzi

Jul 5, 2013

顶楼的 ASP 没有任何问题 ..? 换言之 ... 如果不这么写还能怎么写 ..?

那段 js 虽然难看点 ... 但感觉问题也不大 ...

能用 ... 效率不低 ... 且重构复杂 ... 只是无法维护罢了 ...

manoon

Jul 5, 2013

很有我的风格，一直这样写，从未被超越
现在不知道，反正对于ASP来说，以前。
很少会有MVC相关的概念，也没有一些简单易用类似于SMARTY之类的框架。

workaholic

Jul 5, 2013

我和我的小伙伴们都惊呆了

CoX

Jul 5, 2013

@yibin001 不是私有gist，可以直接查看的啊

@refresh 我估计我们公司这个官网是找某个个人做的，具体做了多久不知道了。我贴的那堆代码就是为了实现在一个表里做个简单查询。另外，整个数据库的表设计的是一塌糊涂。公司想让改版，我就建议重写。

sarices

Jul 5, 2013

asp不是这样写的，我当年是用jscript写asp，然后用xsl做模板，封装好类库，尽量用MVC结构实现，这样后面接手的根据文档能很方便修改。

raptor

Jul 5, 2013

不错了。我以前同事写过用拼音首字母缩写做变量名的…比如：时间是SJ…

icoder

Jul 5, 2013

代码咋样无所谓的，运行没毛病就行了

hellmash

Jul 5, 2013

看到这段代码就想起00年用asp做基于exchange5.5的公文流转，那时候多羡慕那些基于LotusNotes/Domino做的公文流转

VYSE

Jul 5, 2013

asp页面这样再正常不过，嘲笑早期开发者的工作想想以后会不会有人嘲笑现在人的工作

qingfeng

Jul 5, 2013

quick and dirty风格，我喜欢！

013231

Jul 5, 2013

@CoX V2EX只能貼Public Gist, 你那個是Secret Gist. 創建一個Gist時底下有兩個按鈕可選的.

haichong520

Jul 5, 2013

Beautiful Code

holy_sin

Jul 5, 2013

好恶心啊

wtser

Jul 5, 2013

强迫症来了，想重构的冲动！！！

infong

Jul 5, 2013

好喜欢这样的风格。XD。

Kvm

Jul 6, 2013

10年前php也基本这个样吧
ASP的MVC概念还没起来就已经被抛弃了。。。
看到过ASP写得很好的，但是局限于ASP本身的问题最后也随波逐流了。。。。。

Perry

Jul 6, 2013 via iPhone

@CoX http://github.com/数字ID

Perry

Jul 6, 2013 via iPhone

http://gist.github.com/数字ID
@CoX

daoluan

Jul 6, 2013

恩，小伙伴们都惊呆了。

46fo

Jul 6, 2013

楼主敢秀你自己的代码么？？？再怎么完美也会有人吐槽的

older

Jul 6, 2013

@xdeng




<%
language = "cn"

productsPartID = request("ProductsPartID")
dim strSql , strWhere, strTitle
strSql = " SELECT Productsid,pics,pic,ProductsText,ProductsName,ProductsPartID FROM RF_Products WHERE DisplayLevel > 0 AND productsName <> '' "

if productsPartID <> "" then ' 类别ID是否为空
ProductsPartID = clng(productsPartID)
StrSqlPart="select ProductsPartName from RF_ProductsPart where ProductsPartID= " & ProductsPartID
Set rsPart=conn.execute(StrSqlPart)
strTitle = rsPart("ProductsPartName")
else
ProductsPartID = 0
strTitle = "产品展示"
end if
if request("q") <> "" then '搜索关键字不空
strWhere=" AND ProductsName like '%"&request("q")&"%' OR ProductsText like '%"&request("q")&"%'"
end if
if ProductsPartID <> 0 then strWhere = strWhere &" AND ProductsPartID ="&ProductsPartID
strSql = strSql & strWhere & " order by DisplayLevel DESC , ProductsName ASC"
'Response.Write(strSql)

if sm ="" then
sm=0
else
sm=sm-1
end if

%>
<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title><%=strTitle%>--<%=WebTitle%></title>
<META name="description" content="<%=Description%>">
<meta name="keywords" content="<%=Keywords%>">
<link rel="stylesheet" type="text/css" href="css/_main.css"/>

<script type="text/javascript" src="js/subMenu.js"></script>
</head>

<body>

<div class="wrap">
<div class="side">
<ul class="sideMenu">
<%=productClassNavBig (language,productsPartID) %>
</ul>
</div>
<div class="content">
<div class="content-head"><a href="index.asp">首页</a><span>>></span><a href="productIndex.asp">产品中心</a><span>>></span><%=strTitle%></div>

<ul class="productList">
<%
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接

mypage.getsql=strSql
mypage.pagesize=15 '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset

for i=1 to mypage.pagesize '接下来的操作就和操作一个普通Recordset对象一样操作
if not rs.eof then '这个标记是为了防止最后一页的溢出
response.write"<li><a href=""ProductShow.asp?ProductsPartID="&rs("ProductsPartID")&"&sm="&sm+1&"&ProductsID="&rs("Productsid")&""" target=""_blank"" ><img src=""pics/"&rs("pics")&""" alt="""&rs("ProductsName")&""" /></a><dl><dt><a href=""ProductShow.asp?ProductsPartID="&rs("ProductsPartID")&"&sm="&sm&"&ProductsID="&rs("Productsid")&""" target=""_blank"" >"&rs("ProductsName")&"</a></dt></dl></li>"& chr(10)

rs.movenext
else
exit for
end if
next
%>
</ul>
<div class="cb pl20">
<%
mypage.showpage()
%>
</div>

</div>
</div>

</body>
</html>

46fo

Jul 6, 2013

@older 其实我我看不懂。。。。^o^