asp转aspx页面。

xiaogug01 2010-12-14 01:47:47
这是我的一个asp页面。有人知道怎么转吗?

<!--#include file="../../../system/cnpvpsysconn.asp"-->
<!--#include file="../../../system/const.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../../system/shstyle.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" type="text/css" media="all" href="../../../system/js/calendar-win2k-cold-2.css" title="win2k-cold-1" />
<SCRIPT src="../../../system/js/calendar.js" type=text/javascript></SCRIPT>
<SCRIPT src="../../../system/js/calendar-en.js" type=text/javascript></SCRIPT>
<SCRIPT src="../../../system/js/calendar2.js" type=text/javascript></SCRIPT>

<script language="javascript">
function FanAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name == 'selAnnounce' && e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}

function FanAll1(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name == 'selok'&&e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}
function FanAll2(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name == 'selno'&&e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}


function delit(viewaddform)
{
if (confirm("确定删除数据吗?"))
{
viewaddform.action="dljg_action.asp?action=delit";
viewaddform.submit();
}
}

function audit(viewaddform)
{

viewaddform.action="dljg_action.asp?action=audit";
viewaddform.submit();

}
function auditno(viewaddform)
{

viewaddform.action="dljg_action.asp?action=auditno";
viewaddform.submit();

}


</script>
<SCRIPT language=javascript>
function add() {
document.location="dljg_add.asp";
}
</Script>
</head>
<body>

<br>
<table width="99%" height="30" align=center border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>

<td height="14" valign="top" class="titledh">信息发布管理 - 代理机构管理</td>
</tr>
<tr>
<td height="35" class="title">
<div align="left"> 代理机构管理</div></td>
</tr>
</table>

<table width="99%" border="1" align="center"cellpadding="0" cellspacing="0" bordercolorlight="#aaaaaa" bordercolordark="#F0F8FF" bgcolor="#F0F9FF" rules=none class="unnamed1">
<form method="POST" name="myform" action="dljg.asp" >
<tr>
<td width="2%" height="60">
<div align="left"></div></td>

<td width="98%"><strong> 语言:
<select name="languages">
<option value="">不指定</option>
<option value="1">中文</option>
<option value="0">英文</option>
</select>
机构名称:
<input name="name" type="text" id="name" size="20">
联系人 :
<input name="lxr" type="text" id="lxr" size="20">
<br>
</strong> <strong> 时间: </strong>
<input name="datetime" type="text" id="datetime" size="15"><input name="reset" type="reset" onClick="return showCalendar('datetime', 'y-mm-dd');" value="...">


<input name="datetimere" type="text" id="datetimere" size="15"><input name="reset1" type="reset"
onClick="return showCalendar('datetimere', 'y-mm-dd');" value="...">
<input name="Submit" type="submit" class="button" value="查询">
<input name="button1233" type="button" class="button" value="新加代理机构" onClick="add()">
</td>
</tr>
</form>
</table>
<%

action=request("action")
name=replace(trim(request("name")),"'","''")
lxr=replace(trim(request("lxr")),"'","''")
languages=replace(trim(request("languages")),"'","''")
datetime=replace(trim(request("datetime")),"'","''")
datetimere=replace(trim(request("datetimere")),"'","''")
Url_Add="?lxr="&lxr&"&name="&name&"&datetime="&datetime&"&datetimere="&datetimere&"&"
Dim CurPage
If CheckStr(Request.QueryString("Page"))<>Empty Then
Curpage=CheckStr(Request.QueryString("Page"))
If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
Curpage=1
End If

Dim arma
Set Arma=Server.CreateObject("Adodb.RecordSet")
sql="SELECT * from organization "
sql=sql+" where lxr like '%"&lxr&"%' and name like '%"&name&"%' and languages like '%"&languages&"%'"

if Request("datetime")<>"" and request("datetimere")="" then
sql=sql+" and convert(char(10),regdate,120) >= '"&Request("datetime")&"'"
end if

if Request("datetime")="" and request("datetimere")<>"" then
sql=sql+" and convert(char(10),regdate,120) <= '"&Request("datetimere")&"'"
end if
if Request("datetime")<>"" and request("datetimere")<>"" then
sql=sql+" and convert(char(10),regdate,120) between '"&Request("datetime")&"'"&" and '"&request("datetimere")&"'"
end if
sql=sql+" order by regdate desc"

ArMa.Open SQL,Conn,1,1

IF ArMa.EOF AND ArMa.BOF Then
Response.write "<table width=99% border=1 rules=none align=center cellpadding=0 cellspacing=0 bordercolorlight=#aaaaaa bordercolordark=#F0F8FF class=unnamed1>"
Response.write "<tr> <td width=99% height=25>   <font color=red>没有记录</font></td></tr></table>"
else
%>
<table width="99%" border="0" align="center"cellpadding="0" cellspacing="0" bordercolorlight="#FFE084" bordercolordark="#ffffff" bgcolor="#FCFCFC" >
<!--DWLayoutTable-->
<tr>
<td height="25"> · 共有[<font color="#ff0000"><%=ArMa.recordcount%></font>]条记录</td>
</tr>
</table>
<table width="99%" border="1" rules=none align="center"cellpadding="0" cellspacing="0" bordercolorlight="#aaaaaa" bordercolordark="#F0F8FF" bgcolor="#F5F5F5" class="unnamed1">
<form name="viewaddform" method="POST">
<tr bgcolor="#CCCCCC">
<td width="58" height="18" > <div align="center"> <strong> <font color="#FFFFFF">
<input type="submit" value="删除" name="del" onclick="delit(viewaddform)" class="s02">
</font></strong></div></td>
<td width="52" height="18"> <div align="center"><strong>序号</strong></div></td>
<td width="271"><strong>机构名称</strong></td>
<td width="131"><strong>联系人</strong></td>
<td width="80"><strong>发布时间</strong></td>
<td width="81"><div align="center"><strong>语言</strong></div></td>
<td width="79"><strong>状态</strong></td>
<td width="58"><strong><font color="#000000">
<input type="submit" value="审核" name="del2" onClick="audit(viewaddform)" class="s02">
</font></strong></td>
<td width="58"><strong><font color="#000000">
<input type="submit" value="注销" name="del1" onClick="auditno(viewaddform)" class="s02">
</font></strong></td>
<td width="79"> <p align="center"><strong><font color="#000000">修改
<input type="hidden" name="Curpage" value="<%=cstr(Curpage)%>">
<input type="hidden" name="lxr" value="<%=trim(request("lxr"))%>">
<input type="hidden" name="name" value="<%=trim(request("name"))%>">
<input type="hidden" name="datetime" value="<%=trim(request("datetime"))%>">
<input type="hidden" name="datetimere" value="<%=trim(request("datetimere"))%>">
</font></strong></td>
</tr>
<%

Dim Comm_Nums,MultiPages,PageCount
ArMa.PageSize=SitePerPage
ArMa.AbsolutePage=CurPage
Comm_Nums=ArMa.RecordCount
MultiPages=MultiPage(Comm_Nums,SitePerPage,CurPage,Url_Add)
i=0
Do Until ArMa.EOF OR PageCount=SitePerPage
i=i+1
if i mod 2 =0 then%>
<tr bgcolor="#F7FCFF">
<%else%>
<tr bgcolor="#ffffff">
<%end if%>
<td width="58" height="25" > <div align="center">
<input type="checkbox" name='selAnnounce' value="<%=ArMa("org_id")%>">
</div></td>
<td width="52" height="25" ><div align="center"><%=i%></div></td>
<td width="271" height="25" onMouseOver="this.style.backgroundColor='#E8EFFF';" onMouseOut="this.style.backgroundColor='#F7FCFF';" ><a href="javascript:;" onClick="javascript:window.open('../../../main/cn/dljg_view.asp?org_id=<%=arma("org_id")%>','查看','width=466,height=500,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><%=trim(ArMa("name"))%></a></td>
<td width="131" height="25" ><%=trim(ArMa("lxr"))%></td>
<td width="80" height="25" ><%=left(trim(ArMa("regdate")),10)%></td>
<td width="81" height="25" ><div align="center"><%if trim(ArMa("languages"))="1" then response.write "中文" else response.write "英文" end if%></div></td>
<td width="79" height="25" > <%if trim(ArMa("state"))="1" then %>
通过
<%else%> <font color="#FF0000">未审核</font> <%end if %> </td>
<td width="58" height="25" > <%if trim(ArMa("state"))<>"1" then %> <input type="checkbox" name='selok' checked value="<%=trim(ArMa("org_id"))%>">
<%else%> <input type="checkbox" name='selok' value="<%=trim(ArMa("org_id"))%>">
<%end if%> </td>
<td width="58" height="25" > <%if trim(ArMa("state"))="1" then %> <input type="checkbox" name='selno' checked value="<%=trim(ArMa("org_id"))%>">
<%else%> <input type="checkbox" name='selno' value="<%=trim(ArMa("org_id"))%>">
<%end if%> </td>
<td width="79" align="left" > <p align="center"><a href=dljg_modify.asp?org_id=<%=arma("org_id")%>><img src="../../../images/edit.gif" width="18" height="13" border="0"></a>
</tr>
<%
PageCount=PageCount+1
ArMa.MoveNext
Loop

ArMa.Close
Set ArMa=Nothing
%>
</form>
</table>

...全文
674 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
遥望那些年 2010-12-14
  • 打赏
  • 举报
回复
asp转aspx比较基础的思想
有<% %>的,在后台code behind中创建对应的方法。如果<% %>中间有Response.Write(),将Response.Write()中的字符串内容作为方法的返回值返回,并在前台页面相关位置添加Literal空间,将返回值付给Literal的Text。
如果html控件中有<%= %>进行属性值绑定,可以在后台使用Attribute.Add()和Style.Add()方法添加相应属性
xiaogug01 2010-12-14
  • 打赏
  • 举报
回复
asp.net 还可以。不过这个vb的不怎么熟悉。if then 还有 else elseif的。我还是给他慢慢改吧。
孟子E章 2010-12-14
  • 打赏
  • 举报
回复
你要是熟悉asp.net的话,按照要求或者按照页面上的功能重新写一个也很快啊
xiaogug01 2010-12-14
  • 打赏
  • 举报
回复
奥,这个要的挺急的。asp又没怎么接触过。怕来不及。想找个简单的方法,先给放上去。
xiaogug01 2010-12-14
  • 打赏
  • 举报
回复
[Quote=引用 12 楼 net_lover 的回复:]

都改成这样
<input type="hidden" name="Curpage" value="<%=Curpage%>">
<input type="hidden" name="lxr" value='<%=Request("lxr").Trim()%>'>
[/Quote]
孟子大哥,
<tr  bgcolor="#F7FCFF"> 
<%else%>
<tr bgcolor="#ffffff">
<%end if%>
<td width="58" height="25" > <div align="center">
<input type="checkbox" name='selAnnounce' value="<%=ArMa("org_id")%>">
</div></td>

这里的<%else%>和<%=ArMa("org_id")%>怎么改呢。
wyq29 2010-12-14
  • 打赏
  • 举报
回复
还是建议你前后台代码分离 这样很好处理

asp是前后台混写的, 你要aspx也这样?你里面有两个form表单,建议你后台单独写代码

孟子E章 2010-12-14
  • 打赏
  • 举报
回复
最好在后台定义变量public类型的
public string lxr;
Page_Load:

lxr = Request.QueryString["lxr"];

前台 <input type="hidden" name="lxr" value='<%=lxr%>'>
孟子E章 2010-12-14
  • 打赏
  • 举报
回复
都改成这样
<input type="hidden" name="Curpage" value="<%=Curpage%>">
<input type="hidden" name="lxr" value='<%=Request.QueryString["lxr"].Trim()%>'>
天下在我心 2010-12-14
  • 打赏
  • 举报
回复
[Quote=引用 9 楼 xiaogug01 的回复:]
在aspx中可以有什么方法把这个转过来吗?

HTML code
<input type="hidden" name="Curpage" value="<%=cstr(Curpage)%>">
<input type="hidden" name="lxr" value="<%=trim(request("lxr"))%>">
<input type……
[/Quote]
你去找下cstr 和 trim这些方法在什么地方,也许在你头部包含的asp里面,
IHandler 2010-12-14
  • 打赏
  • 举报
回复
有个编程习惯的问题,asp.net使用CodeBehind技术,前后台代码分离,控件的使用,获取表单和参数的值都有不同

建议你查找一些asp.net增删改查的例子来看
xiaogug01 2010-12-14
  • 打赏
  • 举报
回复
在aspx中可以有什么方法把这个转过来吗?
<input type="hidden" name="Curpage" value="<%=cstr(Curpage)%>">
<input type="hidden" name="lxr" value="<%=trim(request("lxr"))%>">
<input type="hidden" name="name" value="<%=trim(request("name"))%>">
<input type="hidden" name="datetime" value="<%=trim(request("datetime"))%>">
<input type="hidden" name="datetimere" value="<%=trim(request("datetimere"))%>">

只要这些能挪过来用了。那其他的就不是问题了。 在aspx中不让用这个 <%=trim(request("datetimere"))%> 有什么能把这个显示出来的方法吗?
天下在我心 2010-12-14
  • 打赏
  • 举报
回复
aspx也可以用vb来写,你建一个使用vb的aspx,把这些代码拷贝过去看看,会有什么效果。
hitlcyu19 2010-12-14
  • 打赏
  • 举报
回复
这个。。。还是lz先整理一下 然后在去优化代码动手做吧
xiaogug01 2010-12-14
  • 打赏
  • 举报
回复
没有简单点的。让aspx页面也支持vbscript脚本语言。之类的方法吗? 这vb的方法没用过。还有那里面的一坨<%=变量%> <%else%>这都弄后台吗? 对前台显示影响吗?直接把这东西删除就 可以吗?
天下在我心 2010-12-14
  • 打赏
  • 举报
回复
很多工作要做的,语法要转成后台,了解asp的方法换成.net的应该怎么写。另外,你头部包含有2个asp文件,也需要去转成.net的,如果是简单的头部之类,用.net写成用户控件。
zy286179959 2010-12-14
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 xiaogug01 的回复:]
我有几个地方不知道怎么改的。

HTML code
<%

action=request("action")
name=replace(trim(request("name")),"'","''")
lxr=replace(trim(request("lxr")),"'","''")
languages=replace(trim(request("language……
[/Quote]


关注
chengfellow 2010-12-14
  • 打赏
  • 举报
回复
至少把sql语句整理出来放到SqlDataSource,ObjectDataSource里把
xiaogug01 2010-12-14
  • 打赏
  • 举报
回复
我有几个地方不知道怎么改的。
<% 

action=request("action")
name=replace(trim(request("name")),"'","''")
lxr=replace(trim(request("lxr")),"'","''")
languages=replace(trim(request("languages")),"'","''")
datetime=replace(trim(request("datetime")),"'","''")
datetimere=replace(trim(request("datetimere")),"'","''")
Url_Add="?lxr="&lxr&"&name="&name&"&datetime="&datetime&"&datetimere="&datetimere&"&"
Dim CurPage
If CheckStr(Request.QueryString("Page"))<>Empty Then
Curpage=CheckStr(Request.QueryString("Page"))
If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
Curpage=1
End If

Dim arma
Set Arma=Server.CreateObject("Adodb.RecordSet")
sql="SELECT * from organization "
sql=sql+" where lxr like '%"&lxr&"%' and name like '%"&name&"%' and languages like '%"&languages&"%'"

if Request("datetime")<>"" and request("datetimere")="" then
sql=sql+" and convert(char(10),regdate,120) >= '"&Request("datetime")&"'"
end if

if Request("datetime")="" and request("datetimere")<>"" then
sql=sql+" and convert(char(10),regdate,120) <= '"&Request("datetimere")&"'"
end if
if Request("datetime")<>"" and request("datetimere")<>"" then
sql=sql+" and convert(char(10),regdate,120) between '"&Request("datetime")&"'"&" and '"&request("datetimere")&"'"
end if
sql=sql+" order by regdate desc"

ArMa.Open SQL,Conn,1,1

IF ArMa.EOF AND ArMa.BOF Then
Response.write "<table width=99% border=1 rules=none align=center cellpadding=0 cellspacing=0 bordercolorlight=#aaaaaa bordercolordark=#F0F8FF class=unnamed1>"
Response.write "<tr> <td width=99% height=25>   <font color=red>没有记录</font></td></tr></table>"
else
%>

和所有的
<input type="hidden" name="Curpage" value="<%=cstr(Curpage)%>">
<input type="hidden" name="lxr" value="<%=trim(request("lxr"))%>">
<input type="hidden" name="name" value="<%=trim(request("name"))%>">
<input type="hidden" name="datetime" value="<%=trim(request("datetime"))%>">
<input type="hidden" name="datetimere" value="<%=trim(request("datetimere"))%>">

这种的。怎么改呀。
xiaogug01 2010-12-14
  • 打赏
  • 举报
回复
<table width="99%" border="1" rules=none align="center"cellpadding="0" cellspacing="0" bordercolorlight="#aaaaaa" bordercolordark="#F0F8FF"  class="unnamed1">
<tr>
<td width="48%" height="25">  <input type=checkbox name=del_all1 value=1 onclick=FanAll(viewaddform)>
<input type=checkbox name=del_all2 value=1 onclick=FanAll1(viewaddform)>
<input type=checkbox name=del_all3 value=1 onclick=FanAll2(viewaddform)>全选
</td>
<td width="52%">
<% Response.Write(MultiPages)
%>
</td>
</tr>
</table>
<%end if%>
</body>
</html>
实现了图书管理系统,功能主要分为三部分:书目检索、读者管理、图书管理;书目检索包括普通检索和高级检索;读者管理包括读者登录、读者信息、读者借阅历史、读者当前借阅、读者借阅过期催还、管理员登录等功能;图书管理包括图书借阅、图书归还、添加图书、图书维护、添加用户、用户维护、密码修改。 \MyLibrary\App_Code\BusinessLogicLayer 图书管理业务逻辑层,包括以下文件: \Book.cs 图书信息类 \Borrow.cs 借阅类 \User.cs 用户类 \MyLibrary\App_Code\DataAccessHelper 图书管理数据访问接口层,包括文件: \SQLString.cs 构造SQL语句的通用类 \GetSafeData.cs 安全获取数据类 \MyLibrary\App_Code\DataAccessLayer 图书管理数据访问层,包括文件: \DataBase.cs 数据访问类 \MyLibrary\Controls 图书管理用户控件,包括文件: \AdminLeft.ascx 管理员左侧菜单控件 \ReaderLogin.ascx 用户登录后菜单控件 \ReaderTop.ascx 用户不登录菜单控件 \MyLibrary\DB \MyLibrary.sql 图书管理数据库创建脚本 \MyLibrary\DB \MyLibrary.bak 图书管理数据库备份 \MyLibrary\Images\ 图书管理系统图片文件夹 \MyLibrary\UsersManage 图书管理用户管理,包括文件: \UserAdd.aspx 添加用户页面 \UserLists.aspx 用户维护页面 \UserDetails.aspx 用户详细页面 \MyLibrary\BookManage 图书管理图书管理,包括文件: \BookAdd.aspx 添加图书页面 \BookLists.aspx 图书维护页面 \BookDetails.aspx 图书详细页面 \BookSearch.aspx 图书搜索页面 \BookSearchResult.aspx 搜索结果页面 \ReaderBookAdvancedSearch.aspx 用户高级搜索页面 \AdminBookAdvancedSearch.aspx 管理员高级搜索页面 \MyLibrary\Reader 图书管理读者信息管理,包括文件: \ReaderLogin.aspx 读者登录页面 \ReaderLoginMain.aspx 读者登录后主页面 \ReaderNotLogin.aspx 读者未登录页面 \ReaderBorrowHistory.aspx 借阅历史页面 \ReaderCurrentBorrow.aspx 当前借阅页面 \ReaderExpireCuiHuan.aspx 过期催还页面 \ReaderInformation.aspx 读者信息页面 \MyLibrary\Borrow 图书管理借阅管理,包括文件: \BorrowBook.aspx 借阅图书页面 \ReturnBook.aspx 归还图书页面

62,074

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

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